Автор: zoha 11.06.2012 1:14
дан текст и некоторое слово. вывести на экран те предложения, которые содержат данное слово
вот что получилось:
Код
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 11.06.2012 2:56
Код
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;