String Zerlegen

[Helmi]

Hallo,

ich hab deinen Code mal ausprobiert.

Mein (Test-)Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  project: String;
  pos1: Integer;
  pos2: Integer;

begin
  project := 'C:\Program Files (x86)\project\_Germany_\project_1.06.exe';
  pos1 := Pos('project_', project);
  pos1 := pos1 + 8;
  pos2 := Pos('.exe', project);
  Label1.Caption := copy(project, pos1, pos2 - pos1);
end;

Und als Text im Label kommt "1.06" raus.