Форум: "Потрепаться";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизПроверка Найти похожие ветки
← →
hooky-mars (2002-03-13 12:41) [0]Доброго времени суток!
Пожалуймта помагите найти ошибку в коде. Этот код для проверки текста в поле мемо, я не могу найти ошибки.
procedure TForm1.Memo2Change(Sender: TObject);
var
S,r,d:String;
i,n,e,n1,e1:integer;
w:boolean;
begin
Length(Memo2.Lines.text);
for i:=1 to Length(Memo2.Lines.text) do begin
if Memo2.Lines.Text[i]="<" then
n:=i+1;
If Memo2.Lines.Text[i]=">" then
e:=i-n;
if (n<>0) AND (e<>0) then
Begin
s:=copy(Memo2.Lines.text,n,e);
w:=False;
for e1:=1 to Length(s) do begin
r:=" ";
if s[e1]=r then
n1:=e1
else
Edit1.Text:=s;
if n1<>0 then
begin
Label2.Caption:=copy(s,1,n1-1);
Edit1.Text:=copy(s,1,n1-1);
w:=true;
if not Table1.Locate("LastName",Edit1.Text,[]) then
ShowMessage("Запись не найдена");
n1:=0;
end;
end;
if (not Table1.Locate("LastName",Edit1.Text,[])) and (w=False) then
ShowMessage("Запись не найдена");
e:=0;
n:=0;
end;
end;
end;
Заранее спасибо!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c