ListBox.itemindex und eine FOR-Schleife

[Andreas L.]

Hi,
ich habe folgenden Code, der Compiler meldet in der ersten Zeile "Inkompitable Typen: Integer und Boolean". Was mache ich falsch?

Delphi-Quellcode:

   for i:=0 to ListBox1.ItemIndex > -1 do
    begin
     Datei:=TFileStream.create(Edit3.text+(extractfilename(ListBox1.Item[ListBox1.itemindex])),fmCreate);
     IdHttp1.Get(ListBox1.item[ListBox1.ItemIndex],Datei);
     Datei.free;
    end;

Greetz und thx

[Luckie]

Lass das ">" mal weg.
ListBox1.ItemIndex > -1 Ist ein bool'scher Vergleich, wenn man so will.

[Andreas L.]

Ok. Jetzt kommt schon der nächste Fehler. In dieser zeile:  Datei:=TFileStream.create(Edit3.text+(extractfilename(ListBox1.Item[ListBox1.itemindex])),fmCreate); Compilermeldung:

Code:

Undefinierter bezeichner: Item

[Luckie]

Items, es heißt Items. Und Delphi hat auch eine Hilfe und eine auitomatische Codevervollständigung.

[Andreas L.]

Zitat von Luckie:

Items, es heißt Items. Und Delphi hat auch eine Hilfe und eine auitomatische Codevervollständigung.

Ich weiß das es auch Items gibt aber ich meinte irgendwo mal eine Code gesehen zu haben indem mit Item der Text des Items herausgefunden wird. Wie kann ich den Text eines Items mittels Integer wert auslesen?

items.text[i]
items.caption[i]

geht auch net...

[MathiasSimmack]

Ja, da gebe ich dir recht. Das sieht dann meist so aus:
xyz.Items.Item[0]... bspw. Aber meist kann man es auch abkürzen, indem man den Index gleich bei "Items" angibt.

[Luckie]

Meinst du so was:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0  to 9 do
    Listbox1.Items.Add(IntToStr(i)+'. Eintrag');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := Listbox1.Items[3];
  ShowMessage(s);
end;

[Chris1986]

Items ist vom Typ TStrings. Also ein Array of string. Auf die einzelnen Einträge kannst du mit Items[i] zugreifen.
MfG
Christian

[Andreas L.]

So, ich habe jetzt diesen Code:

Delphi-Quellcode:

   for i:=0 to ListBox1.ItemIndex -1 do
    begin
     Datei:=TFileStream.create(Edit3.text+(extractfilename(ListBox1.Items[i])),fmCreate);
     IdHttp1.Get(ListBox1.items[i],Datei);
     Datei.free;
    end;

Der Compiler gibt keine Meldungen mehr. Funktionieren tut das Programm aber nicht, wieso? Kann mir jemand den Code fixen?

[Nicodius]

ja da musst du schon erklären was du willst