Newsgroup: it.comp.lang.delphi
Titolo: Salvare file

Ciao a tutti, qualcuno può darmi una mano con questo codice?
procedure TForm1.Button4Click(Sender: TObject);
var
Direzione: string;
begin
Direzione:= ExtractFilePath(Application.ExeName);
if FileExists(Direzione+'Ingredienti\'+Edit2.Text+'.rtf') then
if FileExists(Direzione+'Preparazione\'+Edit2.Text+'.rtf') then
if FileExists(Direzione+'Foto\Jpg\'+Edit2.Text+'.jpg') then
Showmessage(File già esistente!')
else
RichEdit3.Lines.SaveToFile(Direzione+'Ingredienti\'+Edit2.Text+'.rtf');
RichEdit4.Lines.SaveToFile(Direzione+'Preparazione\'+Edit2.Text+'.rtf');
Image3.Picture.SaveToFile(Direzione+'Foto\Jpg\'+Edit2.Text+'.jpg');
end;
Il problema e che salva solo gli ultimi 2 (RichEdit4 e Image3), il primo 
invece no(RichEdit3), qualche consiglio?
Grazie a tutti ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it

 Grazie a tutti ciao.
Hai sbagliato la sintassi logica di questi if... studiati la sintassi 
pascal come ti avevo detto e scoprirai dove sbagli.
-- 
Jax

Ah, metti a posto l'orologio di sistema...
-- 
Jax

Jax
perche? non va bene?
ora vado a vedere questi if, poi ti facio sapere.


 perche? non va bene?
Dipende, se scrivi da Atene sì. :)
O magari è il server di delphiedintorni che sclera... boh.
-- 
Jax


Voila,
procedure TForm1.Button4Click(Sender: TObject);
var
Percorso: string;
begin
Percorso:= ExtractFilePath(Application.ExeName);
if FileExists(Percorso+'Ingredienti\'+Edit2.Text+'.rtf') and
 (FileExists(Percorso+'Preparazione\'+Edit2.Text+'.rtf')) and
(FileExists(Percorso+'Foto\Jpg\'+Edit2.Text+'.jpg')) then
Showmessage('File già esistente!')
else
RichEdit3.Lines.SaveToFile(Percorso+'Ingredienti\'+Edit2.Text+'.rtf');
RichEdit4.Lines.SaveToFile(Percorso+'Preparazione\'+Edit2.Text+'.rtf');
Image3.Picture.SaveToFile(Percorso+'Foto\Jpg\'+Edit2.Text+'.jpg');
end;
Ora va bene, ho letto il libro, sono istruzioni if annidate.
Grazie
Ciao.
Cmq l'orologio sta andando bene, cosa c'è che non va?


 Ora va bene, ho letto il libro, sono istruzioni if annidate.
Bah, non sono sicuro.
Tu vuoi salvare SEMPRE il Richedit4 e Image3 e, solo se non esiste
qualcuno dei tre file, il RichEdit3?
Ciao
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Label3.Caption:=FormatDateTime('hh.mm.ss'+'  '+'AAAA/DD/MMMM',Now);
ore, minuti e secondi.
non capisco, cosa c'č che non va?
Forse ti riferisci a: 'AAAA/DD/MMMM'(anno,giorno,mese),
ma la data quando vado in run me la da giusta, esempio: 
mercoledi/23/maggio.
Non so che dirti.
Cmq ora la corrego.


qualcuno dei tre file, il RichEdit3?
No, voglio salvare tutti e tre, ma se ci sono già mi avvisa.
non va bene?
Ciao.


Scusa, non avevo capito che ti riferivi all'orologio del pc, il mio e 
giusto, e quello di delphiedintorni che e sbagliato


 non va bene?
No, manca il begin..end dell'else.
-- 
Jax

 Cmq ora la corrego.
Sì, mi riferivo alla data dei post, che vengono con +1 ora.
Comunque, parlando di quell'istruzione, ritorniamo sul concetto "se 
funziona non vuol dire che sia giusta".mm
Infatti, se guardi la guida di FormatDateTime, e più in particolare la 
guida all'argomento "Date-Time Format Strings", vedrai che:
1) le format strings sono sempre espresse in minuscolo
2) non esiste nessuna AAAA (anche perché, se DD sono i giorni (Day), gli 
anni al massimo sarebbero stati YYYY (Year)), ma esiste "dddd", che è 
appunto il nome del giorno - in questo caso non so perché ti esca il 
nome del giorno, sei solo stato fortunato :)
Quindi se vuoi far uscire mercoledì/23/maggio (perché le barre?) devi 
usare dddd/dd/mmmm
-- 
Jax

Ok, la questione dell' orologio ora vado ad approfondirla,per quanto 
riguarda l'istruzione if:
procedure TForm1.Button4Click(Sender: TObject);
var
Percorso: string;
begin
Percorso:= ExtractFilePath(Application.ExeName);
if FileExists(Percorso+'Ingredienti\'+Edit2.Text+'.rtf') and
 (FileExists(Percorso+'Preparazione\'+Edit2.Text+'.rtf')) and
(FileExists(Percorso+'Foto\Jpg\'+Edit2.Text+'.jpg')) then
Showmessage('Ma non lo vedi che c" è già?')
else
begin
RichEdit3.Lines.SaveToFile(Percorso+'Ingredienti\'+Edit2.Text+'.rtf');
RichEdit4.Lines.SaveToFile(Percorso+'Preparazione\'+Edit2.Text+'.rtf');
Image3.Picture.SaveToFile(Percorso+'Foto\Jpg\'+Edit2.Text+'.jpg');
end;
end;
va bene?
A rigrazie tante.
Ciao.


 va bene?
Sì. Anche se io farei in modo diverso... farei scegliere all'utente se 
sovrascrivere i file o no... ma questo sta a te deciderlo.
Fatto così, una volta che hai salvato un file, non puoi più modificarlo.
-- 
Jax

Jax


Fatto cosě, una volta che hai salvato un file, non puoi piů modificarlo.
Seguirň il tuo consiglio.
In effeti non ci avevo pensato.
Ne ho da studiare....
Ciao jax, tranquillo per un po non ti rompo piu (devo partire)
grazie di tutto ci risentiamo a settembre.
Ciao!
