как закинуть в массив

← →
Aibolit © (2007-09-02 07:54) [0]

строка в которой слова разделенны запятыми, необходимо чтобы сделать чтобы слова между запятыми помещались бы в безразмерный массив.
Как это сделать

← →
engine © (2007-09-02 08:46) [1]

Dynamic arrays + Copy + Pos + Delete + F1

← →
Lacmus © (2007-09-02 09:00) [2]

>Aibolit © (02.09.07 07:54)

procedure TForm47.Button1Click(Sender: TObject); var i: Integer; WordArray: TStringList; begin WordArray := TStringList.Create; try WordArray.CommaText := "Word1, Word2, Word3, Word4"; for i := 0 to WordArray.Count - 1 do ShowMessage(WordArray[i]) finally WordArray.Free end end;

← →
Denis_ © (2007-09-02 10:33) [3]

> строка в которой слова разделенны запятыми, необходимо чтобы
> сделать чтобы слова между запятыми помещались бы в безразмерный
> массив.
> Как это сделать

Что за вопросы? Не заметно, что у Вас высшее образование. Нам такое задавали в восьмом классе. И я не лез сюда спрашивать, а делал за 5 минут. Поробовать подумать не хотите?

← →
Anatoly Podgoretsky © (2007-09-02 10:53) [4]

> Aibolit (02.09.2007 07:54:00) [0]

Безразмерных массивов не бывает, для безразмерных массивов требуются безразмерные ресурсы.

← →
aibolit © (2007-09-02 12:45) [5]

да можно сделать менее чем за 5 минут, мне были интесны способы которыми моно было бы реализовать это. способ Lacmus реально простой и удобный. хотя я бы через цикл реализовал.

← →
delphiForever (2007-09-02 14:06) [6]

qw1:array of String;

procedure q1(str:string;ch:char);
begin
SetLength(qw1,0);
if str<>"" then
while
SetLength(qw1,Length(qw1)+1);
qw1[Length(qw1)-1]:=Copy(str,0,Pos(ch,str)-1);
Delete(str,1,Pos(ch,str));
until (Length(str)=0)or(Pos(ch,str)=0);
end;

← →
@!!ex © (2007-09-02 17:00) [7]

> хотя я бы через цикл реализовал.

А в [2] разве не через цикл?

← →
JaK[Light] © (2007-09-02 17:15) [8]

> А в [2] разве не через цикл?

Там цикл только для вывода :)

← →
Вася Правильный (2007-09-02 17:21) [9]

> способ Lacmus реально простой и удобный.

но массивом там не пахнет

>Вася Правильный (02.09.07 17:21) [9]

PStringItemList = ^TStringItemList; TStringItemList = array[0..MaxListSize] of TStringItem; TStringList = class(TStrings) private FList: PStringItemList;

← →
Вася Правильный (2007-09-02 21:35) [11]

> Вася Правильный (02.09.07 21:35) [11]

> если уж такой дотошный, то этот массив private

Дык, закидывает же.

--
Regards, LVT.

как закинуть в массив Найти похожие ветки