Dateinamen / Dateiendungen extrahieren

[DeddyH]

Delphi-Quellcode:

procedure explode(const separator,haystack: string; l: TStrings);
var s: string;
begin
  l.BeginUpdate;
  l.Clear;
  s := haystack;
  while Pos(separator,s) > 0 do
    begin
      l.Add(Copy(s,1,Pos(separator,s) - 1));
      Delete(s,1,Pos(separator,s));
    end;
  if Length(s) > 0 then
    l.Add(s);
  l.EndUpdate;
end;

Aufruf dann mitexplode(';',Edit1.Text,ListBox1.Items);