Försöker igen, förra inlägget kom inte med. :-(( , tror jag.
Får börja med att tacka för all hjälp jag fått tidigare!
Ni vet vilka ni är, tack!
Nu har jag ett nytt bekymmer, i en 'string' som innehåller en sökväg till en mapp, skulle jag behöva, ifrån slutet på 'stringen' behöva radera tecken tills en ' \ ' (backslash) hittas. Och sedan få den "nya" sökvägen i en annan 'string'.
Rörigt?, såhär menar jag:

VAR firstString : string;
VAR resultString : string;
resultString := ta bort tecken ifrån slutet tills \ hittas, men inte \( ) : string;

Blev det klarare? Vore mycket glad för en lösning!
'Newbie'

Hej
Eftersom du laborerar med sökvägar så undrar
jag om det inte kan lösas enl princip nedan.

Testkör detta exempel och se om inte detta hjälper
dina funderingar. Om inte så tar Vi det på annat vis.

procedure TForm1.Button1Click(Sender: TObject);
Var
Path : String ;
NewFile : String ;
begin
NewFile := 'MinFil2' ;
Path := ExtractFilePath(Application.ExeName)+ NewFile;
Label1.Caption := Path ;
end;

Du kan betrakta en String som en Array dvs
du kommer åt varje tecken med tex [10] hämta
tionde bokstaven på arrayvis.

mvh
Sven

Jag tror jag förstår hur du menar, men, detta rör sig om en sökväg till en mapp. Denna mapp skall jag sedan byta namn på.
T.ex. mapp C:\oldMapp --> C:\newMapp.
Behöver därför få bort allt efter sista \ (backslashen), på det viset kan jag låta användaren mata in ett nytt mappnamn utan att behöva bry sig om sökvägar. Själva namnändringen sen har jag löst.

Hej
Var tvungen att lägga ett kol på ditt prob.
Finns kanske smartare lösning men detta funkar.

procedure TForm1.Button1Click(Sender: TObject);
Var
testStr : String ;
newMapp : String ;
newTestStr : String ;
iLastDel,i : Integer ;

begin
newMapp := 'NyaMappen' ;//sim text input
testStr := 'C:\MinMapp\MinMapp2\MinMapp3';
iLastDel := LastDelimiter('\',testStr) ;
For i := 1 to iLastDel Do
newTestStr := newTestStr + testStr[i] ;

Label1.Caption := newTestStr + newMapp ;
end;

mvh
Sven

Testade igår kväll med att modifiera det första förslaget, och fick det att fungera perfekt. Tackar!