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

[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

[zoha]

Код

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

//if memo1.lines[memo1.lines.count-1]=edit1.text then
//label1.caption:=memo1.lines[memo1.lines.count-1];
  for i:=1 to memo1.Lines.Count do  begin
if pos(Edit1.text, memo1.Lines[i])<>0 then
   label1.Caption:=(memo1.Lines.Strings[1]);
end;
end;