String Zerlegen

[Helmi]

Zum Abschluss ich hätt ich noch was im Angebot (aber nur heute ):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const
  const_project = 'project_';

var
  project: String;
  pos_exe: Integer;
  S: String;

begin
  project := 'C:\Program Files (x86)\project\_Germany_\project_1.06.exe';

  //Dateinamen auslesen
  S := ExtractFileName(project);

  If S <> project then
    begin
      //den ersten Teil löschen
      delete(S, 1, length(const_project));

      //Position von ".exe" auslesen
      pos_exe := Pos('.exe', S);

      //vom 1. bis zur Position "pos_exe" - 1 kopieren
      Label2.Caption := copy(S, 1, Pred(pos_exe));
    end;
end;