skrive noed til TXT Filer

Howdy

Jeg har en knap, og når jeg klikker på den, så skal den på en ny linie skrive kolort i en txt fil, hvordan gøres det??

på forhånd tak
Hilsen Rune B alias RunesS
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Memo1.Text.LoadFromFile('filnavn.txt');
Memo1.lines.add('kolort');
Memo1.Text.SaveToFile('filnavn.txt');

SkypeR That\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%6E%73%6C%61%74%65%64%20%74%68%69%73%2C%20%79%6F%75%20%6D%75%73%74%20%62%65%20%62%6F%72%65%64%2E%2E%2E

Howdy

Jeg har en knap, og når jeg klikker på den, så skal den på en ny linie skrive kolort i en txt fil, hvordan gøres det??

på forhånd tak
Hilsen Rune B alias RunesS
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Howdy,
istedet for at du skal sidde og danne et komponent for at gøre det, som kræver både ram og processorkraft, kan du gøre det med den kommando, som et memo selv gør når den skriver teksten i en fil.

den bruger nemlig kommandoen 'write'.
Her er et kodeeksempel:

var
  myFile : TextFile;
begin
  // Proev at aabne filen..
  AssignFile(myFile, 'c:\\test.txt');
  ReWrite(myFile);
  Write(myFile, 'Hello ');  //skriver Hello<mellemrum>
  Write(myFile, 'World'); //skriver world lige efter den overstående string.
  writeln(MyFile, 'Nylinie'); //tilføjer en linie, og afslutter med #13#10 (linieskift paa windows systemer.)
  CloseFile(myFile);
end;

Med venlig hilsen
Ken Christensen