Speichern und Auslesen in/aus .txt - Datei

Bishop · Hält's aus hier Beiträge: 5

Hallo.
Für ein Schulprojekt (ihr könnt es wahrscheinlich nicht mehr hören :roll:

) bastel ich grad an ein Telefonbuch Programm. Hab zwar schon einen kleinen simplen Taschenrechner gebastelt, doch wollt ich doch etwas mehr "klasse" haben

Habe HIER mal einen Screenshot hochgeladen.

Es geht mir darum dass ich die Einträge aus den EditFeldern in einer Textdatei speichern kann ohne dass die txt-Datei überschrieben wird.

und

Dass beim Starten des Programmes die Datei in eine Listbox (bin auch für andere Ideen offen) geladen wird. Eventuell auch per Buttonklick. Sie sollen nur dort erscheinen. Anklicken ist meines erachtens nicht von nöten.

Die Suchfunktion hat mir leider nicht geholfen.

Mehr als Dankbarkeit kann ich allerdings auch nicht bieten.

MfG Bishop :nixweiss:

[/url]

Gast Erhaltene Danke: 1

Sieh dir mal

TStrings.Add
TStrings.SaveToFile
und
TStrings.LoadFromFile

an

(TListBox hat eine Property Items vom Typ TStrings)

Bishop · Hält's aus hier Beiträge: 5

Zitat:

Sieh dir mal

TStrings.Add
TStrings.SaveToFile
und
TStrings.LoadFromFile

an

(TListBox hat eine Property Items vom Typ TStrings)

Danke. Leider bin ich trotzdem ein blutiger Anfänger. Weiss nicht genau wie ich das einsetzen soll. Hast du vielleicht noch ein paar ergänzende Tips? :?!?:

Gast Erhaltene Danke: 1

Der grundlegende Tipp heißt wohl "F1" :twisted:

mit Listbox.Items.Add('Zeile') fügst du eine neue Zeile ein, und bei LoadFrom-/SaveToFile gibst du als Parameter den Dateinamen an.

Bishop · Hält's aus hier Beiträge: 5

Sorry. Wenn ich meine das ich ein blutiger Anfänger bin, dann meine ich, dass das Blut nur so spritzt. Hab keine Ahnung wie ich das anwenden soll. Kannst du EVENTUELL vielleicht ein CodeBeispiel posten??? :oops:

MfG
der "Verwirrte" Bishop

Gast Erhaltene Danke: 1

Setz doch einfach in on Show deiens Forms:

markieren

Delphi-Quelltext

1:	listbox1.items.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');

und zum speichern z.B. so (Button1.Click)

markieren

Delphi-Quelltext

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

var str : tstringlist;
x : integer;
...

str := tstringlist.create;
str.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');


str.add(Edit1.Text);
str.add(Edit2.Text);
str.add(Edit3.Text);

str.savetofile(extractfilepath(paramstr(0)) + 'datei.txt');
str.free;

gruß

ixtreme.de

Gast Erhaltene Danke: 1

Zitat:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

str := tstringlist.create;
str.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');
for x:= 0 to listbox1.items.count - 1 do
begin
str.add(listbox1.items[x]);
end;
str.savetofile(extractfilepath(paramstr(0)) + 'datei.txt');
str.free;

Was einem simplen

markieren

Delphi-Quelltext

1:	Listbox1.items.SaveToFile(...);

gleichkommt.

Gast Erhaltene Danke: 1

ja weil ich eigentlich str.add(edit1.text) schreiben wollte :-)

man könnte es so
listbox1.items.savetofile(...);machen wenn man die Editfälder erst ins Listboxschreibt was einfacher wäre. Da ich aber ein Quärdenker bin mach es lieber wie oben beschrieben...*g* Dann lernst du auch mal wie ein Psycho dzu denken!

Gruß

ixtreme.de

P.S. Obwohl, ne!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Ich lass das lieber mit dem posten heute!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme