Lave en .TXT fil

Den skal gemmme .TXT filen på skrivbordet..

Der må også meget gerne kommes med bedre idéer!

Sådan på den simple måde...

Procedure ButtonOnClick()
var
  L : TStringList;
begin
  L := TStringList.Create;
  L.Add(Edit1.Text);
  L.Add(Edit2.Text);
  ..
  L.SaveToFile('c:\documents and settings\<dit navn>\Desktop\fil.txt');
  FreeAndNil(L);
end;

Det er alt alt formange point... Max. 30 værd...

For altid at få den korrekt sti til skrivebordet så brug denne funktion

function GetShellFolderPath(CSIDL : integer) : string;
var
  szBuf : array[0..MAX_PATH] of char;
begin
  if SHGetFolderPath(0,CSIDL,0,0,szBuf) = S_OK then
    Result := IncludeTrailingPathDelimiter(szBuf)
  else
    Result := '';
end;

Så kan du benytte

  L.SaveToFile(GetShellFolderPath($10) + 'fil.txt');

Okay, troede det var meget sværer! :)

Glemte lige

Du skal tilføje SHFolder i din Uses i toppen af programmet.

hov..glemte at svare