Jak podzielić stringa na wyrazy ?

0

Pytanie jak w temacie...
np. mamy stringa
str='boryzo1 boryzo2 boryzo3';
i jak zrobic aby było
str1='boryzo1;
str2='boryzo2;
str3='boryzo3;

0

czytasz czasami artykuly z "Service for programmers" :-)--Source of life - Programming,
Skateboarding,
Metal.

0

Mozna tak :
var
str : string;
slowa : array[0..2] of string;

  • slowa : TStrings;
    i : integer;
    begin
    *slowa:=TStringList.create;
    str := 'boryzo1 boryzo2 boryzo3';
    i:=0;
    repeat
    slowa[i]:=copy(str , 1 , pos(str, ' ')-1 );
    //slowa.Add(copy(str , 1 , pos(str, ' ')-1 ));
    Delete(str , 1 , pos(str ,' ') );
    inc(i);
    until Pos(str , ' ')=0;
    end;

Tak mozesz robic w przypadku gdy znasz ilosc spacji a jak nie to zamiast tablicy stringów zastosuj TStrings . W przypadku TSTrings zmianna i jest zbedna.
--GOGLE is the best :)
Pozdrowienia Chodek

0

Dziękuje bardzo za udzielenie mi tak bardzo cennej dla mnie odpowiedzi.

Pozdrawiam Boryz

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