Text Editor... HJÆLP!!

Tags:    delphi

Hej..!
Jeg er lige begyndt at programmere med Delphi og jeg har brug for lidt hjælp!
Er der nogen der ved hvad koden er for at Gemme filer:

Jeg har prøvet denne kode men den er for Gem som:

procedure TForm1.button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

Den kode jeg har brug for er at efter man har åbnet en tekst fil og derefter tryk på Gem gemmer den i den samme fil. Ligesom i Notesblok.



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
<quote>
Jeg er lige begyndt at programmere med Delphi og jeg har brug for lidt hjælp!
Er der nogen der ved hvad koden er for at Gemme filer:
</quote>

Først skal du erklære en variabel hvor i navnet på filen skal gemmes. Det bør du gøre i private delen af TForm1 klassen. Variablen erklærer du bare som Filnavn: string;

Herefter skal du ændre lidt på din kode til at åbne filer med så det kommer til at se sådan her ud (jeg går ud fra at du bare bruger en normal TOpenDialog):

<pre>
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFormFile(OpenDialog1.FileName);
Filnavn := OpenDialog1.FileName; //gem navnet på filen der lige er blevet åbnet
end;
</pre>
.

I koden til din Gem knap skriver du så:

<pre>
if Filnavn <> '' then //check om en fil er blevet åbnet eller en ny fil er blevet gemt
Memo1.Lines.SaveToFile(Filnavn)
else
Button1.Click; //aktiver Gem som
</pre>

.
Nu skal du bare ændre din Gem Som kode så den ser sådan her ud:

<pre>
procedure TForm1.button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
Filnavn := SaveDialog1.FileName;
end;
end;
</pre>

.
Husk at hvis det er muligt at lukke et dokument og derefter starte på et nyt uden at lukke programmet skal du huske at sætte Filnavn := ''; da man ellers vil kunne overskrive det sidst åbnede dokument.[Redigeret d. 21/01-02 23:31:31 af Lasse M]



t