Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.644 Beiträge
Delphi 12 Athens
|
Re: Auf .txt datei speichern
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
|