| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вопрос [D5, Win95/98]
poligalov1 © (2002-08-12 08:17:00)Помогите решить задачку
Задана последовательность из неизвестного количества слов. Ввести последовательность. Определить текущую длину по-следовательности. Удалить из последовательности слов то слово, которое вводится для удаления в дополнительном окне формы. Вывести результирующую последовательность.
KSergey (2002-08-13 07:10:00) [1]Да это кошмар какой-то последнее время!!!
А почитать методичку слабо? Или не грамотный? А нахрена оно вообще это нужно тогда тебе?!
Leran2002 (2002-08-12 08:47:00) [2]procedure TForm1.Button1Click(Sender: TObject);
var
S:string;
MyList:TStringList;
i:integer;
begin
MyList:=TStringList.Create;
MyList.Text:=StringReplace(Edit1.Text," ",#13,[rfReplaceAll]);
ShowMessage(MyList.Text);
S:="";
for i:=0 to MyList.Count-1 do
if MyList.Strings[i]<>Edit2.Text then S:=S+MyList.Strings[i]+" ";
Delete(S,Length(S),1);
Edit1.Text:=S;
MyList.Free;
end;
MBo (2002-08-12 08:29:00) [3]используй TStringList
| |
