![]() |
mehrere edit.text felder speichern
hi,
wie kann ich mehrer edit.text felder z.b in eine *.txt datei speicher- hab nur ein memo feld hingekriegt zu speicher- aber editfalder davon hab ich keine ahnung- kann mir einer helfen? danke |
Re: mehrere edit.text felder speichern
Hi!
Wenn du mehrere Edit-Felder in eine Datei speichern willst, dann geht das glaub ich nur, wenn du es vorher in ein Memo kopierst und das dann speicherst! Verbessert mich, wenn ich mich irre! ciao fkerber |
Re: mehrere edit.text felder speichern
:shock: *verbesser*
Du kannst das etweder in eine INI-Datei machen, ist ja nichts anders als eine TXT-DAtei. Oder du kuckst dir mal die Befehle: AssignFile, Writeln etc. an. Hier lassen sich bestimmt auch einige Bsp. finden...;-) |
Re: mehrere edit.text felder speichern
Zitat:
|
Re: mehrere edit.text felder speichern
Probiers doch mal mit ner StringList.Dann mit ner for-schleife die von 0 bis Anzahl der Edits läuft. Das ist eleganter als ein Memo.
|
Re: mehrere edit.text felder speichern
Delphi-Quellcode:
Hoffe das war richtig und das was du brauchst.Habs nicht getestet
var
T:Strings; i:integer; begin T := TStringList.Create; try for i := 0 to 5 (Anzahl der Edits -1) do begin T.Add(Edit[i].text); end; T.SaveToFile('Datei.txt'); finally T.Free; end; end; |
Re: mehrere edit.text felder speichern
Klappt nicht...Mist
|
Re: mehrere edit.text felder speichern
So klappts:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var T:TStrings; i,j:integer; begin T := TStringList.Create; try for i := 0 to Form1.ComponentCount - 1 do begin if Form1.Components[i].ClassType = TEdit then T.Add(TEdit(Form1.Components[i]).Text); end; T.SaveToFile('c:\Datei.txt'); finally T.Free; end; end; |
Re: mehrere edit.text felder speichern
Hi,
warum sowas mit einer Stringlist erledigen? Sorry, aber das verbraucht nur Speicher. Die Möglichkeit mit TextFile, die alexander angemerkt hat, ist wesentlich speichersparender! Chris |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz