Überspringt einfach Schleife!!!

[billi]

Hallo,
in folgendem Programm wird einfach die Ausgabeschleife am Ende Ignoriert! Und ich weis net wie ich das abstellen soll:

Delphi-Quellcode:

procedure TForm1.BErzeugenClick(Sender: TObject);
var
  Dateinamen: array of string;
  Dir: string;
  SearchRec: TSearchRec;
  i, j: integer;
begin
  Dir := LQuelle.caption;
  if FindFirst('c:\*.*', faAnyFile, SearchRec) = 0 then
  try
    i := 0;
    SetLength(Dateinamen, 1);
    Dateinamen[0] := SearchRec.Name;
    while FindNext(SearchRec) = 0 do
      begin
        i := i + 1;
        SetLength(Dateinamen, Length(Dateinamen) + 1);
        Dateinamen[i] := SearchRec.Name;
      end;
  finally
    FindClose(SearchRec);
  end;
  for j := Length(Dateinamen) to 0 do
    MSchleife.lines.add(Dateinamen[j]);
end;

Über einen guten Rat freue ich mich,
gruß
billi

[edit=r_kerber]Code durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[Die Muhkuh]

Hi,

entweder du schreibst:

Delphi-Quellcode:

  for j := Length(Dateinamen) downto 0 do 
    MSchleife.lines.add(Dateinamen[j]);

oder

Delphi-Quellcode:

  for j := Length(Dateinamen) to {Eine Zahl} do 
    MSchleife.lines.add(Dateinamen[j]);

Was anderes kann ich mir net vorstellen...

[r_kerber]

Und außerdem liefert Length IMHO die Anzahl der Zeichen eines Strings zurück und nicht, wie Du gern möchtest, die Anzahl der Elemente des Feldes.

[billi]

das mit lenght funzt aber...
und dank dem tip das ganze ding auch...
danke,
billi

[Die Muhkuh]

Vielleicht solltest du noch statt:

Dateiname: array of String lieber

Dateiname: String schreiben.


Oder irre ich mich da?

[billi]

wieso? es handelt sich bei Dateinamen um einen Array?!

[billi]

mit dem "lenght" bin ich mir doch nicht so ganz sicher... ich steig lieber aus "high" um...

[Matze]

Length gibt einfach die Länge des Arrays zurück, High die Anzahl der belegten Plätze.

@Spider: Ich würde aus dem Array nicht einfach so mal nen String machen.

[Matze]

Length gibt einfach die Länge des Arrays zurück, High die Anzahl der belegten Plätze.

@Spider: Ich würde aus dem Array nicht einfach so mal nen String machen.

SORRY, kA, warum ich nen Doppelpost hab, war noch nie so