Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Вниз
вопрос Найти похожие ветки
← →
poligalov1 (2002-08-12 08:17) [0]Помогите решить задачку
Задана последовательность из неизвестного количества слов. Ввести последовательность. Определить текущую длину по-следовательности. Удалить из последовательности слов то слово, которое вводится для удаления в дополнительном окне формы. Вывести результирующую последовательность.
← →
MBo (2002-08-12 08:29) [1]используй TStringList
← →
Leran2002 (2002-08-12 08:47) [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;
← →
KSergey (2002-08-13 07:10) [3]Да это кошмар какой-то последнее время!!!
А почитать методичку слабо? Или не грамотный? А нахрена оно вообще это нужно тогда тебе?!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c