ListBox speichern und laden

Crosaider · Hält's aus hier Beiträge: 7

Hallo @ all

Habe mit Delphi erst vor kurzem angefangen und blicke deswegen noch nicht alles. Deswegen wäre ein beispiel wenn ihr antwortet sehr nett.

Ich habe in meinem Programm 3 Formen. Wenn ich in Form 3 auf OK drücke soll das was in den 4 Edit's steht in eine ListBox in Form 1 übertragen werden und diese soll dann in einer Datei gespeichert werden. Außerdem soll diese Datei beim nächsten Start des Programms wieder automatisch geladen werden. Hoffe auf eure Hilfe. Viele Grüße

Crosaider

MagicRain · Verfasst: Di 07.10.08 00:49

Hallo hier erst einmal ein Beispiel wie du ein Item in einer ListBox hinzufügen dann kannst, etwas zum laden einer Datei und zum Speichern einer Datei. Hoffe ich konnte dir etwas weiter helfen, oder einen kleinen Stoß in die richtige Richtung verpassen

markieren

Delphi-Quelltext

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

//--Iteams hinzufügen....
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ListBox1.Items.Add(Form3.Edit1.Text);
  Form1.ListBox1.Items.Add(Form3.Edit2.Text);
  Form1.ListBox1.Items.Add(Form3.Edit3.Text);
  Form1.ListBox1.Items.Add(Form3.Edit4.Text);
end;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

//--File laden...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('1.txt');
end;

markieren

Delphi-Quelltext

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

//--Speichern // Benutze ein SaveDialog....
procedure TForm1.Button3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then begin
    ListBox1.Items.SaveToFile(SaveDialog1.FileName);
  end;
end;

Crosaider · Hält's aus hier Beiträge: 7

bis jetzt geht alls ganz super nur wenn ich

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('1.txt');
end;

einbaue kommt immer die Meldung "=" erwartet, aber "(" gefunden. Habe ich schon mal ausgetauscht geht dann aber immer noch nicht. wo muss ich das denn genau hinschreiben?

Moderiert von Narses: Delphi-Tags hinzugefügt

MagicRain · Verfasst: Di 07.10.08 01:42

Ich würde das in die OnCreate procedure der Form packen. Findest du indem wenn du dich auf der Form befindest im Objektinspektor unter Ereignisse. So wird beim starten des Programms die Datei gleich reingeladen.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('YourFile.txt');
end;

Moderiert von Narses: Bild als Anhang hochgeladen

Einloggen, um Attachments anzusehen!

Crosaider · Hält's aus hier Beiträge: 7

danke jetzt geht alles. aber im moment wird alles noch

markieren

Quelltext

1:
2:
3:
4:

xxx xxx
xxxxxxxxx
xxxxxxxx@xxx.de
xxxxxxxxx

so angezeigt (soll ein Telefonbuch werden). Wie bekomme ich es hin das alles in einer Reihe steht (ohne die Punkte natürlich aber sonst wird es hier im Forum nicht so angezeigt

):

markieren

Quelltext

1:
2:

Name:...............Straße:...................E-Mail:....................Tel:
XXX xxx.............xxxxxxxxxxxxx.......xxxxxxx@xxx.de.....xxxxxxxx

Außerdem habe ich noch einen Bearbeiten Button eingebaut. Wie kann ich ihm Sagen, das er in der Datei nach dem Namen den ich in ein neues Edit reinschreibe und mir dann nur den Namen + die anderen Infos (also e-mail usw.) anzeigt? UNd dann brauche ich auch noch einen Button der die Suche wieder löscht so das alle wieder angezeigt werden.

Moderiert von Narses: Code-Tags hinzugefügt

Ehemaliges Mitglied Erhaltene Danke: 1

Zur Darstellung ist wohl eine Listview mit ViewStyle vsReport besser geeignet.

MagicRain · Verfasst: Di 07.10.08 12:50

Das kannst du so machen. Hoffe ich habe dich Richtig verstanden und das ist was du wolltest.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

//--Iteams hinzufügen....
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ListBox1.Items.Add(Form3.Edit1.Text+Form3.Edit2.Text+Form3.Edit3.Text+Form3.Edit4.Text);
end;

Crosaider · Hält's aus hier Beiträge: 7

@ MagicRain

Ja so habe ich mir das in etwas vorgestellt. Nur sollten noch zwicshen den einzelnen Daten ein bis zwei tabs sein. geht das auch noch?

@ DeddyH

Habe von dem leider nichts verstanden. Wenn du mir ein beispiel spreiben könntest und wo genau ich das einfügen muss wäre das super.

Vielen dank an euch beide schonmal!!

Ehemaliges Mitglied Erhaltene Danke: 1

Pack Dir mal eine ListView auf die Form und führe OnCreate den folgenden Code aus:

markieren

Delphi-Quelltext

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

procedure TForm1.FormCreate(Sender: TObject);
var Column: TListColumn;
begin
  ListView1.ViewStyle := vsReport;
  Column := ListView1.Columns.Add;
  Column.Width := 200;
  Column.Caption := 'Name';
  Column := ListView1.Columns.Add;
  Column.Width := 150;
  Column.Caption := 'Vorname';
  Column := ListView1.Columns.Add;
  Column.Width := 150;
  Column.Caption := 'EMail';
end;

Nun noch einen Button dazu:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var Item: TListItem;
begin
  Item := ListView1.Items.Add;
  Item.Caption := 'erste Spalte';
  Item.SubItems.Add('zweite Spalte');
  Item.SubItems.Add('dritte Spalte');
end;

MagicRain · Verfasst: Di 07.10.08 13:26

Zitat:

Ja so habe ich mir das in etwas vorgestellt. Nur sollten noch zwicshen den einzelnen Daten ein bis zwei tabs sein. geht das auch noch?

Würde ich so auf die schnelle machen eine bessere Idee habe ich leider nicht.

markieren

Delphi-Quelltext

1:	Form1.ListBox1.Items.Add(Form3.Edit1.Text+' \| '+Edit2.Text+Form3.Edit3.Text+Form3.Edit4.Text);

Zitat:

@ DeddyH
Habe von dem leider nichts verstanden. Wenn du mir ein beispiel spreiben könntest und wo genau ich das einfügen muss wäre das super.

Ja, am besten ist es finde ich immer wenn man ein Code beispiel sieht, ich als auch noch Delphi noob kann das nur bestätigen, manches mal hat man aber auch gar keine Idee wie man etwas um setzen kann oder soll, da helfen dann schon mal paar Ideen

Crosaider · Hält's aus hier Beiträge: 7

Das mit der ListView habe ich jetzt hinbekommen nur habe ich jetzt wieder das Problem:

Zitat:

Wenn ich in Form 2 auf OK drücke soll das was in den 4 Edit's steht in die ListView in Form 1 übertragen werden und diese soll dan gespeichert werden.

Wahrscheinlich nichts schweres (nur was umschreiben, habe ich zwar versucht aber ging nicht. Wie gesagt mache Delphi erst seit 3 Tagen

).

Zitat:

Außerdem habe ich noch einen Bearbeiten Button eingebaut. Wie kann ich ihm Sagen, das er in der Datei nach dem Namen den ich in ein neues Edit reinschreibe und mir dann nur den Namen + die anderen Infos (also e-mail usw.) anzeigt? Und dann brauche ich auch noch einen Button der die Suche wieder löscht so das alle wieder angezeigt werden.

Wäre auch schön wenn das ginge nur habe kp wie :lol:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme