|
Postoji f-ja "StrRScan" koja ti vraca pointer na poslednje pojavljivanje nekog karaktera, tako da posle pozivanja te f-je moras da od toga oduzmes jos adresu prvog karaktera u stringu i onda dobijas poziciju u stringu tog karaktera koji trazis ( u ovom tvom slucaju to je '\' ).
Evo ti malo vise o funkciji: http://pascal.sources.ru/tmt/help/strrscan_func.htm
a pozivas je ovako:StrRScan(PChar(StringKojiImas), '\ ')
a za automatsko izracunavanje pozicije mozes da koristis to ovako:
var I: Integer;
StringUlaz: String;
.............
I := StrRScan(PChar(StringUlaz), '\') - PChar(StringUlaz) + 1;
posle cega bi u I trebao da imas poziciju poslednjeg '\' i onda ti je lako da odseces to sto ti vec treba...
E sad za ovaj kod za izracunavanje pozicije nisam bas siguran 100% posto ga pisem napamet, pa proveri to posto ti mozda da poziciju ispred ili iza '\' pa ti ne bude radilo kako treba... Uglevnom to ti je resenje tvog problema  .
|
