Teilweise Strings übertragen

[Luckie]

Dann nimm Copy. LeftStr und RightStr machen bestimmt nichts anderes.

[Marcl]

Hm ne irgendwie klappt das nicht so recht...
Mein Problem ist irgendwie, das die länge der Dateinamen ja immer anders ist.

Ich hatte mir das so gedacht, den Dateinamen halt aus der FileListbox entnehmen, 4 Stellen
abziehen also halt die letzen vier (.dat) und den Rest halt in die Listbox übertragen.
Krieg ich absolut nicht hin...

Kann mir da vielleicht nochmal jemand helfen?`

Gruß Marcel

[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;

[Marcl]

A perfekt...
Danke schööööööön :-D

[Christian Seehase]

Moin Marcel,

für den Fall kannst Du auch ChangeFileExt benutzen.
Wenn Du als 2. Parameter einen Leerstring angibst (''), dann wird die Endung gelöscht.

Eine weitere Variante:
Du baust Dir das selber mit copy und LastDelimiter.
Schau Dir die Funktionen doch mal an.