предложения и слово Опции

[zoha]

дан текст и некоторое слово. вывести на экран те предложения, которые содержат данное слово

вот что получилось:

Код

procedure TForm1.Button1Click(Sender: TObject);
var s,k:string;i:integer;
begin

for i:=1 to memo1.Lines do
if pos(Edit1.text, memo1.Lines[i])<>0 then
lavel1.caption:= memo1.Lines[i];
end;
end;

Добавлено через 6 мин.
кое что изменил....

Код

procedure TForm1.Button1Click(Sender: TObject);
var s,k:string;i:integer;
begin
s:=memo1.Lines.Text;
for i:=1 to length(s) do
    begin
    if s[i]=' ' then k:=s;
    end;
label1.Caption:=inttostr(k);
end;

Сообщение отредактировано: zoha - 10.06.2012 21:14