Aus Textfile in Combobox laden

[Mark90]

Hi leute.

ich habe eine TExtdatei in der ich verschiedene informationen speichere.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: Tstringlist;
  hlp: string;
begin
  sl := Tstringlist.create;// hier lade ich zeile für zeile in eine combobox
  sl.LoadFromFile('save.txt');
  for i := 0 to ComboBox1.Items.Count - 1 do begin
       hlp := sl.Strings[i];
       combobox1.Items.Add(hlp);

  end;

end;

leider funzt das nicht. meine combobox wird nicht geladen.

danke schon im vorraus

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: Tstringlist;
  hlp: string;
begin
  sl := Tstringlist.create;// hier lade ich zeile für zeile in eine combobox
  sl.LoadFromFile('save.txt');
  for i := 0 to sl.Count - 1 do begin   // sl.count
       hlp := sl.Strings[i];
       combobox1.Items.Add(hlp);

  end;

end;

Die ComboBox ist zu Anfang ja noch leer.

Einfacher geht es vielleicht so:

Delphi-Quellcode:

ComboBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'save.txt');

Grüße
Klaus

[DeddyH]

Delphi-Quellcode:

sl := Tstringlist.create;
ComboBox1.Items.BeginUpdate;
try
  sl.LoadFromFile('save.txt');
  ComboBox1.Items.Assign(sl);
finally
  sl.Free;
  ComboBox1.Items.EndUpdate;
end;

[Bernhard Geyer]

Delphi-Quellcode:

combobox1.Items.LoadFromFile('save.txt');

[DeddyH]

Klar, da hab ich gar nicht dran gedacht :wall:

[s-off]

Hallo,

Deine Combobox ist leer, daher greift ein Zähler darauf nicht.

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   i: integer;
   sl: Tstringlist;
Begin
   sl := Tstringlist.create;
   Try
      sl.LoadFromFile('save.txt');
      For i := 0 To sl.Count - 1 Do Begin
         combobox1.Items.Add(sl.Strings[i]);
      End;
   Finally
      FreeAndNil(sl);
   End;
End;

[Mark90]

danke schon mal für die antworten. nur wie setzte ich den zähler bei der combobox auf null?

außerdem würde combobox1.items.loadfromfile("save.txt") nicht gehen, da ich jeden string noch ändere.

[DeddyH]

Welcher Zähler?

[Klaus01]

Zitat:

Zitat von Mark90

danke schon mal für die antworten. nur wie setzte ich den zähler bei der combobox auf null?

außerdem würde combobox1.items.loadfromfile("save.txt") nicht gehen, da ich jeden string noch ändere.

Nun, das war in Deinem obigen Beispiel nicht ersichtlich.

Delphi-Quellcode:

ComboBox1.Items.clear;

sollte zum Löschen der Liste reichen.
Dann sollte auch count auf 0 sein.

Grüße
Klaus

[DeddyH]

Und wenn Du es machst, wie ich unter #3 gepostet habe, brauchst Du Dich um den Zähler nicht zu kümmern ;)

[Klaus01]

Zitat:

Zitat von DeddyH

Und wenn Du es machst, wie ich unter #3 gepostet habe, brauchst Du Dich um den Zähler nicht zu kümmern ;)

Dann kann er aber die Strings nicht mehr bearbeiten bevor sie der ComboBox assigned werden.

Grüße
Klaus

[Mark90]

danke!

weißst du auch zufällig wie sowas in borland c++ aussieht, da ich eigentlich mit c++ arbeite?

[DeddyH]

Zitat:

Zitat von Klaus01

Dann kann er aber die Strings nicht mehr bearbeiten bevor sie der ComboBox assigned werden.

Wieso nicht? Zwischen LoadFromFile und Assign kann er doch mit der Stringliste machen, was er will :gruebel:

[Klaus01]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Klaus01

Dann kann er aber die Strings nicht mehr bearbeiten bevor sie der ComboBox assigned werden.

Wieso nicht? Zwischen LoadFromFile und Assign kann er doch mit der Stringliste machen, was er will :gruebel:

Nun, das stimmt.
Aber bringt es Vorteile gegenüber der Version mit der for Schleife?
Wenn ich die StringListe bearbeiten will, muß ich auch die ganze Liste durchlaufen.
Also warum nicht bei der Übertragung von der StringList zur Combobox bearbeiten.

Grüße
Klaus

[DeddyH]

Da hast Du natürlich Recht, dann ist das Jacke wie Hose (vom Aufruf von "Clear" mal abgesehen).