hjælp til løkke

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  For i := 0 To ListBox1.Items.Count - 1 Do
    ListBox2.Items.Add(ExtractFileName(ListBox1.Items[i]));
end;

Længe leve delphi guderne :D

Fordi jeg også gerne vil mænge mig med guderne har jeg brygget denne D2006+ variant sammen. Er så småt begyndt at bruge for-in selvom det absolut ikke er en perfekt konstruktion.

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  st : string;
begin
  lbFilesExpanded.Items.BeginUpdate;
  try
    lbFilesExpanded.Items.Clear;
    for st in lbFiles.Items do
      lbFilesExpanded.Items.Add(ExtractFileName(st));
  finally
    lbFilesExpanded.Items.EndUpdate;
  end;
end;

øhh nu har jeg faktisk delphi 2007, men kan du ikke fortælle mig hvad jeg skulle få ud af at bruge din løsning, fremfor snowball's

Egentlig er der ingen forskel, jeg ville blot demonstrere den "helt-hellige" version.

Jeg bruger ikke en "for i := 0 to Count - 1"-løkke, men en "for-in". Den vil aldrig give en "out of bounds"-exception. Desuden har jeg en BeginUpdate og en EndUpdate pakket ind i en try-finally.

Understøtter D2007'eren så endelig .NET 2.0?

P.S. For-in-variablen, her "st", er skrivebeskyttet. Det synes jeg er lidt spøjst.

du kan jo se hvad du kan få ud af siden her http://www.codegear.com/products/delphi/win32