29. august 2004 - 10:13Der er
8 kommentarer og 2 løsninger
Gem tekst fil
Dette skulle gerne gemme en tekstfil med bestemt navn. Hvis filen findes i forvejen skal der skiftes til punkt: Gem Som Ellers skal filen bare gemmes I øjeblikket skiftes der altid til punkt : Gem Som, hvorefter filen gemmes!
Hvordan retter jeg det?
procedure TStart.GemMenuClick(Sender: TObject); var Dialogtekst:string;
begin
SaveDialog.FileName := Table1Dato.text +' ' + Table1Titel.text ; if SaveDialog.Execute then
DBRichEdit1.Lines.SaveToFile(SaveDialog.FileName); DBRichEdit1.Modified := False; if FileExists(SaveDialog.FileName) then begin
if FileExists(SaveDialog.FileName) then GemSomMenuClick(Sender); exit end
**************************** Og spg.2 Tekstfilerne gemmes i min program mappe. Hvad nu, hvis jeg gerne vil have savedialogen til at starte i en bestemt mappe "Noter", således tekstfilerne gemmes her. Hvordan gør man det?
det ved jeg ikke om jeg umiddelbart kan.... men har du ikke en masse unødige if statements?.. er følgende ikke det samme: if FileExists(SaveDialog.FileName) then begin GemSomMenuClick(Sender); exit end else begin DBRichEdit1.Lines.SaveToFile(SaveDialog.FileName); exit; end;
Det er fint hrc, men nu gemmes en ny tekstfil blot uden txt til efternavn. Gemmer jeg så igen, gås der rigtig not til GemSom og filen gemmes nu med sit efernavn. Altså, der ligger 2 filer i mappen: 1 med efternavn og 1 uden efternavn
med: procedure TStart.GemMenuClick(Sender: TObject); var Dialogtekst:string;
begin
SaveDialog.InitialDir := 'Noter'; SaveDialog.FileName := Table1Dato.text +' ' + Table1Titel.text ; if SaveDialog.Execute then if FileExists(SaveDialog.FileName) then
begin if FileExists(SaveDialog.FileName) then Dialogtekst := 'Skal Filen Overskrives?' ; if Application.MessageBox(PChar(DialogTekst),'Design Uthsen ',
MB_YESNO + MB_ICONQUESTION) = IDYES then DBRichEdit1.Lines.SaveToFile(SaveDialog.FileName);
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
