Tags:
delphi
Hej.
Jeg er ved at lave en kode-editor i delphi. Det skrider fremad, men jeg har problemer med et par funktioner. Pt. driller min gem-funktion mig. Jeg har fint fået 'Save as..' til at virke. Men at få den til at gemme oven i en fil, som allerede er gem (altså 'save'), er straks svære. Jeg har prøve flg. :
if SaveDialog.Execute then
begin
if DocFileName = '' then
begin
// Gemme som ny fil
DocFileName:= SaveDialog.FileName;
Memo.Lines.SaveToFile(DocFileName);
end
else
// Overskriv den aktuelle fil
Memo.Lines.SaveToFile(DocFileName);
end;
Men ovenstående virker ikke. Jeg får en gem-dialog boks op hver gang. Jeg overvejer nu, om jeg kan bruge 2 dialog-bokse, med hver deres egenskaber ?
Håber I kan hjælpe mig lidt på vej.
1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
Jeg fandt løsningen. Der er :
if DocFileName = '' then
begin
// Gemme som ny fil
if SaveDialog.Execute then
begin
DocFileName:= SaveDialog.FileName;
Memo.Lines.SaveToFile(DocFileName);
end;
end
else
begin
// Overskriv den aktuelle fil
Memo.Lines.SaveToFile(DocFileName);
end;