Скачать: CL | DM;

вопрос   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c