Dateinamen / Dateiendungen extrahieren

[ErazerZ]

Delphi-Quellcode:

var
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  SL.Delimiter := ';';
  SL.DelimitedText := Edit1.Text;
  for i := 0 to SL.Count -1 do
    ShowMessage(SL[i]);
  SL.Free;