Cicho :P wyciaganie ze stringa

0

mam oto taki string: "fvtranslate(0.0.0.2);"

no i teraz wyciagnalem wszystko co bylo w nawiasie
czyli "0.0.0.2"

i teraz chce wszystko walnac do tablicy w_nawiasie : array of string;

(no juz mam zrobiony setlength) ale chcialbym teraz do kazdej komorki z tej tablicy walnac to co odpowiada odpowiednio pomiedzy kropkami :)

Wiem ze nie umiem tego wytlumaczyc, robielm to kiedys ale przerwa cos mi zmielila mozg =] a na dodatek tera w szkoel jestem i nie moge sie pieprz##### z tym nara =]

0

Coś takiego:

var
tekst: string;
w_nawiasie: string;
p, i: Integer;
begin
...
i := 0;
p := Pos('.', tekst);
while p>0 do
begin
w_nawiasie[i] := LeftStr(tekst, 1, p);
Delete(tekst, 1, p);
Inc(i);
p := Pos('.', tekst);
end;
end;

0

type tprocedura=record
nazwa:string;
srodek:string;
end;

function procedura(s:string):tprocedura;
var sr:string; ss:string;
ts:tsplit;
begin

result.nazwa:=copy(s,1,pos('(',s)-1);
ss:=s;
delete(ss,1,pos('(',ss)-1);
sr:=copy(s,pos('(',s)+1,length(s));
sr:=copy(sr,1,length(sr)-1);
delete(sr,length(s),1);
result.srodek:=sr;
end;

uzywasz funkcja(ten_string).srodek; i masz srodek miedzy ( i ) :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1