вопрос

← →
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;

Да это кошмар какой-то последнее время!!!
А почитать методичку слабо? Или не грамотный? А нахрена оно вообще это нужно тогда тебе?!

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