Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как закинуть в массив [D7, XP]

Aibolit © (2007-09-02 07:54:00)
строка в которой слова разделенны запятыми, необходимо чтобы сделать чтобы слова между запятыми помещались бы в безразмерный массив.
Как это сделать

Leonid Troyanovsky (2007-09-02 22:23:00) [1]

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

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

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

--
Regards, LVT.

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

> Lacmus © (02.09.07 21:17) [10]

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

Lacmus (2007-09-02 21:17:00) [3]
>Вася Правильный (02.09.07 17:21) [9]

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

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

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

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

JaK[Light] (2007-09-02 17:15:00) [5]

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

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

@!!ex (2007-09-02 17:00:00) [6]
> хотя я бы через цикл реализовал.

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

delphiForever (2007-09-02 14:06:00) [7]
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;

aibolit (2007-09-02 12:45:00) [8]
да можно сделать менее чем за 5 минут, мне были интесны способы которыми моно было бы реализовать это. способ Lacmus реально простой и удобный. хотя я бы через цикл реализовал.

Anatoly Podgoretsky (2007-09-02 10:53:00) [9]
> Aibolit (02.09.2007 07:54:00) [0]

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

Denis_ (2007-09-02 10:33:00) [10]

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

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

Lacmus (2007-09-02 09:00:00) [11]
>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;

engine (2007-09-02 08:46:00) [12]
Dynamic arrays + Copy + Pos + Delete + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »