Wyciąganie kawałka stringa

Mam string np. 'C:\costam.dll, 0'. I teraz chcę wyciągnąć osobno 'C:\costam.dll' oraz '0', z tym, że nie znam ściezki, a string może zawierać spacje, np. po przecinku albo przed, ale nie musi. {glowa} ---------------------------
Delphi 6

Pozdrówka

var
s, source : string;
begin
source := 'C:\costam.dll 0';
s := source;
delete(s,1,length(s) - 1); *tutaj wyciągamy tylko liczbę dziesiątek od 0-9
showmessage(s);
s := source;
delete(s,length(s),pos(s,'.') + 3 ); *a jezeli 'C:\costam.dll, 0' zamiast 'C:\costam.dll 0' ( zprzecinkiem) to daj 4 lub jak rozszerzenie html to daj cztery ale wtedy tylko bez przecinka a jak masz rozszerzenie html i rpzecinek to daj 5
showmessage(s);
end;

Pozdrawiam

a moze cos takiego:

var
Source, S, S2 : String;
begin
Source := 'c:\cos.dll, 0';
S := Copy(Source,1,Pos(',', Source)-1);
S := Trim(S); //usun spacje na poczatku i na koncu
S2 := Copy(Source,Pos(',',Source)+1,Length(Source));
S2 := Trim(S2);
ShowMessage(S+S2);
end;
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-

W dziale Delphi/Artykuły masz ciekawy opis na temat stringów--Pozdrawiam!

RockY

Delphi 5
xrocky@o2.pl
GG: 3615957