Edit1.Text Speichern und auslesen!!!

fiest@ · Hält's aus hier Beiträge: 2

Hi
also ich habe ein wichtiges schulproject:
und zwar muss ich dabei Text aus Editfeldern in zum Beispiel einer *.txt-file speichern und später wieder auslesen und in die editfelder reinschreiben!!! Nen Savedialog und nen Opendialog hab ich schon angelegt aber keine ahnung wie ich dieses Problem beseitige! Wär nett wenn ihr es etwas ausführlicher beschreiben könntet, da ich erst seit kurzem mit delphi arbeite (am besten mit quelltext)

vielen dank schon mal und einen guten rutsch

mfg
fiest@

Ehemaliges Mitglied Erhaltene Danke: 1

fiest@ hat folgendes geschrieben:

und zwar muss ich dabei Text aus Editfeldern in zum Beispiel einer *.txt-file speichern und später wieder auslesen und in die editfelder reinschreiben!!!

Bist du sicher, dass es Editfelder sind und nicht vielleicht Memos (= mehrzeilige Eingabefelder)?

Zitat:

Nen Savedialog und nen Opendialog hab ich schon angelegt aber keine ahnung wie ich dieses Problem beseitige! Wär nett wenn ihr es etwas ausführlicher beschreiben könntet, da ich erst seit kurzem mit delphi arbeite (am besten mit quelltext)

Es wäre auch nett, wenn du den Code zeigst, den du schon hast. Ich meine, den Öffnen- und den Speicherndialog hast du ja ganz offensichtlich schon.

tomtom62 · Beiträge: 278 WIN 2000, XP prof D5 prof.

Speicher die ganzen editx.text mittels tstringlist.add zusammen in einer TStringlist.

Die kannst Du dann mittels SavetoFile abspeichern.

Mittels LoadfromFile kannst Du das wieder laden und dann wieder
in die Editfelder zurückschreiben

StefanH · Verfasst: Mi 31.12.03 14:54

oder genauer (er ist ja noch unerfahren 8-)

):

ich nehme etz einfach an, du hast 5 Edits, mit Namen Edit1, Edit2,...

Speichern:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var i: integer;
      s: TStringList;
begin
try
 s:= TStringList.Create;
 for i:=1 to 5 do // für 5 die Anzahl der Edits nehmen
     s.Add((FindComponent('Edit' + IntToStr(i)) as TEdit).Text);
 s.SaveToFile('lab.txt');
finally
 s.Free;
end;
end;

Laden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var i: integer;
      s: TStringList;
begin
try
 s:= TStringList.Create;
 s.LoadFromFile('lab.txt');
 for i:=1 to 5 do // für 5 die Anzahl der Edits nehmen
     (FindComponent('Edit' + IntToStr(i)) as TEdit).Text := s[i];
finally
 s.Free;
end;
end;

Stefan

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

fiest@ · Hält's aus hier Beiträge: 2

hehe vielen dank für eure antworten ich denke das hilft mir etwas weiter!!

rutscht gut rein
cu
fiest@

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme