Помощь - Поиск - Пользователи - Календарь
Полная версия: предложения и слово
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
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
Код
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.