Thema: Delphi Auf .txt datei speichern

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.644 Beiträge
 
Delphi 12 Athens
 
#6

Re: Auf .txt datei speichern

  Alt 30. Sep 2009, 18:28
Eine von vielen Möglichkeiten wäre TIniFile. Den Pfad kannst Du mit einem TSaveDialog eingeben lassen. Das sähe in Code gepackt dann etwa so aus:
Delphi-Quellcode:
const Sectionname = 'Texte';
var Ini: TIniFile;
    i: integer;
begin
  if SaveDialog.Execute then
    begin
      Ini := TIniFile.Create(SaveDialog.Filename);
      try
        for i := 0 to ComponentCount - 1 do
          if Components[i] is TEdit then
            Ini.WriteString(Sectionname,TEdit(Components[i]).Name,TEdit(Components[i]).Text);
      finally
        Ini.Free;
      end;
    end;
end;
Zum Auslesen das Gleiche genau anders herum.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen