Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Memorizzare note in TMemo
Forum - Delphi - Memorizzare note in TMemo

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
carmelo (Normal User)
Pro


Messaggi: 100
Iscritto: 15/06/2007

Segnala al moderatore
Postato alle 17:02
Venerdì, 15/06/2007
Ciao a tutti...
Ho un problemino cn i tmemo:
sapreste dirmi come fare a salvare delle note scritte in un tmemo e al riavvio di windows fare in modo che in automatico il tmemo mi ricarichi le note salvate in precedenza?
grazie mille

ps: Complimenti per il sito! :k:



PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 22:21
Venerdì, 15/06/2007
devi far salvare un file contenente le righe del memo.... e poi le rifai caricare.. ad esempio...
se tu vuoi che quando viene chiuso il programma ti si salvino i dati e all'avvio del programma vengano caricati, devi mettere nell'evento "on close" del form il seguente codice
Codice sorgente - presumibilmente Plain Text

  1. memo1.Lines.SaveToFile('c:/pippo.txt');


cosi verrà creato un file contenente il contenuto del memo. per farlo rivisualizzare basta che meti nell'evento "on create" del form il codice
Codice sorgente - presumibilmente Plain Text

  1. memo1.Lines.LoadFromFile('c:/pippo.txt');


ovviamente puoi mettere i comandi anche dentro a due bottoni differenti rinominandoli con "carica" e "salva"

EDIT
ovviamente se lo metti nell'evento on create, la prima volta che aprirai il programma  ti darà un errore dicendoti che il file non esiste... quindi è melgio se metti cosi:
Codice sorgente - presumibilmente Delphi

  1. if fileexists('c:/pippo.txt') then
  2. memo1.Lines.LoadFromFile('c:/pippo.txt')
  3. else
  4. showmessage('Il file non esiste')


Ultima modifica effettuata da Anonymous il 15/06/2007 alle 22:24
PM Quote
Avatar
carmelo (Normal User)
Pro


Messaggi: 100
Iscritto: 15/06/2007

Segnala al moderatore
Postato alle 12:59
Sabato, 16/06/2007
ciao e grazie per la risposta...
Ho seguito alla lettera quello che mi hai consigliato ma ogni qual volta che avvio l'applicazione mi spunta il messaggio che il file non esiste.
Eppure il file esiste nella cartella c:/...!
Mi sembra strano perchè pare che alla chiusura dell'applicazione il comando savetofile non venga rispettato...
Dove sbaglio?
Ciao e grazie

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 13:52
Sabato, 16/06/2007
controlla allora la riga della condizione di esistenza del file e controlla se il nome e il percorso del file è lo stesso

if fileexists('c:/pippo.txt') then

PM Quote
Avatar
carmelo (Normal User)
Pro


Messaggi: 100
Iscritto: 15/06/2007

Segnala al moderatore
Postato alle 16:14
Sabato, 16/06/2007
Niente da fare, è lo stesso percorso e continua a non funzionare.
Ho provato invece a richiamare il file tramite un Tbutton e allora funziona perfettamente: in pratica, in automatico all'apertura dell'applicazione crea il problema, mentre se all'apertura dell'applicazione clicco su un Tbutton il file lo apre senza problemi...
Per quanto riguarda il comando savetofile invece funziona perfettamente...che ne pensi?

PM Quote
Avatar
carmelo (Normal User)
Pro


Messaggi: 100
Iscritto: 15/06/2007

Segnala al moderatore
Postato alle 17:07
Sabato, 16/06/2007
ok ho risolto!
lascio il TButton ma lo rendo non visibile e lo faccio attivare in automatico ogni volta che avvio l'applicazione...
:asd:

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 17:14
Sabato, 16/06/2007
penso che è strano.... molto strano...

adesso l'ho controllato e a me funziona alla perfezione... l'unica cosa è che fai partire il programma senza aver salvato il progetto e hai tolto dal percorso la scritta "c:/"

cmq tu posta il codice che hai inserito...  TALE E QUALE non modificare niente

PM Quote
Avatar
carmelo (Normal User)
Pro


Messaggi: 100
Iscritto: 15/06/2007

Segnala al moderatore
Postato alle 19:24
Sabato, 16/06/2007
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
speedbutton1.Click;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('c:/note.txt')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
memo1.Lines.SaveToFile('c:/note.txt');
end;

questo è come è adesso...

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 20:28
Sabato, 16/06/2007
ah.. ecco... vedi????
tu lo mettevi nell'evento "On Activate" del form non nell'evento "On Create"

prova a metterlo nell'evento "on create" e vedrai che funziona senza aver bisogno di utilizzare il bottone

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo