Memo und listview ???

[Sharky]

Hai Bernd,

bei deinem Code fehlt auf jeden Fall ein end;. Zählen wir doch nach:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
var 
  i : Integer; 
  ListItem: TListItem; 
begin // Begin der Procedure
  for i := 0 to Memo1.Lines.Count-1 do 
  Begin  // Begin der For-Do-Schleife
    ListItem := ListView1.Items.Add; 
    ListItem.Caption := Memo1.Lines.Strings[i]; 
    ListItem.SubItems.Add(extractfilename(Memo1.Lines.Strings[i])); 
end; // Nur ein end! Es gibt aber zwei begin

In deinem Code fehlt also das end; für den For-Do-Block:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
var 
  i : Integer; 
  ListItem: TListItem; 
begin 
  for i := 0 to Memo1.Lines.Count-1 do 
  begin 
    ListItem := ListView1.Items.Add; 
    ListItem.Caption := Memo1.Lines.Strings[i]; 
    ListItem.SubItems.Add(extractfilename(Memo1.Lines.Strings[i])); 
   end; // <- Dast hat gefehlt
end;

Wenn bei Dir jetzt eine Fehlermeldung kommt hast Du an einer anderen Stelle ein end; zuviel.