Oppure

Loading
15/06/07 15:02
carmelo
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:


aaa
15/06/07 20:21
Anonymous
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
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
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:
if fileexists('c:/pippo.txt') then
memo1.Lines.LoadFromFile('c:/pippo.txt')
else
showmessage('Il file non esiste')
Ultima modifica effettuata da Anonymous 15/06/07 20:24
aaa
16/06/07 10:59
carmelo
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
aaa
16/06/07 11:52
Anonymous
controlla allora la riga della condizione di esistenza del file e controlla se il nome e il percorso del file è lo stesso

if fileexists('/…') then
aaa
16/06/07 14:14
carmelo
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?
aaa
16/06/07 15:07
carmelo
ok ho risolto!
lascio il TButton ma lo rendo non visibile e lo faccio attivare in automatico ogni volta che avvio l'applicazione...
:asd:
aaa
16/06/07 15:14
Anonymous
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 "/…;

cmq tu posta il codice che hai inserito... TALE E QUALE non modificare niente
aaa
16/06/07 17:24
carmelo
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
speedbutton1.Click;
end;

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

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

questo è come è adesso...
aaa