Ciao a tutti tengo a sottolineare che sono un neofita in delphi, al mio primo tutorial ho problemi all'istruzione salva vi pongo il codice che ho inserito nel mio piccolo programma:
procedure TForm1.FileSaveExecute(Sender: TObject);
begin
if(FileName = 'untitled.txt')then
FileSaveAs1.Execute
else
richedit1.Lines.SaveToFile(FileName);
end;
procedure TForm1.FileSaveAs1BeforeExecute(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir := ExtractFilePath(FileName);
end;
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
FileName := FileSaveAs1.Dialog.FileName;
RichEdit1.Lines.SaveToFile(FileName);
StatusBar1.Panels[0].Text := FileName;
end;
In fase di runtime se premo sul menu salva mi dice che non riesce a creare il file perchè non trova il percorso. Cè qualcuno che sa aiutarmi?
Grazie.