вот что получилось:
Код
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;
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;
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 -