Teilweise Strings übertragen

[Lannes]

Hallo,

damit wird es gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var z : Integer;
    aFile, aFileExt, aFilename : String;
begin
  for z := 0 to FileListBox1.Items.Count-1 do
    begin
      aFile := FileListBox1.Items[z];//aus FileListBox1 lesen
      aFileExt := ExtractFileExt(aFile);//z.B. = .dat
      aFilename := Copy(aFile,1,Pos(aFileExt,aFile)-1);//bis zur Extension kopieren
      ListBox1.Items.Add(aFilename);//in ListBox1 schreiben
    end;
end;