[Delphi] Blagam!

0

wiem ze juz dostalem odpwoiedz ale ten tego chcialbym aby mi ktos pomogl:

( 279 772 104 ) ( 154 478 104 ) ( 279 772 -80 ) castle_floor/floor_c04c 0 -176 0 0.500000 0.500000 0 0 0

niech ktos mi wyciagnie wszytko oprocz sapcji

do xxx : array[0..16] of string; (tylko do 17 pozycji)

czyl ipo wyrzucac wszystkie spacje i zosatwic tekst

czyli pierwsze 3 pozycje to beda '(' , '279', '772'

0

'(', '279', '772', '104', ')', '(', '154', '478', '104', ')', '(', '279', '772', '-80', ')', 'castle_floor/floor_c04c',

0

no jasne :D [diabel] dzieki nie :PPPP dobra ale bez jaj

0

no to masz:
procedure TForm1.Button1Click(Sender: TObject);
Var
xxx : array[0..16] of string ;
zm1, Zm2 : String ;
poz, Y : Integer ;
begin
Zm1 := '( 279 772 104 ) ( 154 478 104 ) ( 279 772 -80 ) castle_floor/floor_c04c 0 -176 0 0.500000 0.500000 0 0 0';
poz := 1 ;
Y := 0 ;
while (Y < 17) or (poz =0) do
begin
Zm2:=Zm1;
poz:=Pos(' ',Zm1) ;
Delete(Zm1,1,poz);
Delete(Zm2,poz,Length(zm2));
xxx[Y]:=zm2 ;
Inc(Y);
End;

end;

0

jak to zadziala bo ejszcze nie sprawdzalem to bedziesz mial u mnie wielki dlug wdziecznosci!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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