Форум: "Начинающим";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];
Вниз
как закинуть в массив Найти похожие ветки
← →
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 реально простой и удобный.
но массивом там не пахнет
← →
Lacmus © (2007-09-02 21:17) [10]>Вася Правильный (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]
> Lacmus © (02.09.07 21:17) [10]
если уж такой дотошный, то этот массив private и не безразмерный
← →
Leonid Troyanovsky © (2007-09-02 22:23) [12]
> Вася Правильный (02.09.07 21:35) [11]
> если уж такой дотошный, то этот массив private
Дык, закидывает же.
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.061 c
