Проверка

← →
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;

Заранее спасибо!

← →
MBo (2002-03-13 12:51) [1]

разобраться тут трудно :(
ошибок много

используй функцию Pos

← →
hooky-mars (2002-03-13 13:07) [2]

MBo по подробней пожалуйста

← →
MBo (2002-03-13 13:14) [3]

Length(Memo2.Lines.text); ничего не делает

if Memo2.Lines.Text[i]="<" then
n:=i+1;
If Memo2.Lines.Text[i]=">" then
e:=i-n; n может быть неопределенным и т.д.
хелп на Pos посмотри !
что нужно делать, из кода неясно.
еще может Delete понадобиться

← →
hooky-mars (2002-03-13 13:19) [4]

MBo
Мне надо чтобы программа считывала слова из МЕМО и провераяла их по базе. Вобще я хочу сделать Edit HTML с проверкой синтакса.

← →
Nebula (2002-03-13 13:43) [5]

А чего хотел-то?

Необходимо n := 0; e := 0; n1 := 0; (пременные-то сами не обнуляются)

Ты ищешь в Memo текст заключенный в <> затем берешь символы от начала до пробела и ищешь в Table постепенно наращивая строку (пример: <mama papa vasya> делаешь 3 поиска - "mama", "mama_papa", "mama_papa_" (пробелы не игнорируешь), vasya уже не используется, т.к. пробелов-то после него нет - n1 = 0, w = True). Если пробелов совсем нет, то ищешь все строку 1 раз.

Правильно? Ты про какие ошибки?

← →
hooky-mars (2002-03-13 18:42) [6]

Nebula
C пробелом дело не выходит. Вот какие ощибки я не могу обнаружить!

← →
Anatoly Podgoretsky (2002-03-13 20:27) [7]

А тогда почему ты решил, что есть ошибки?

← →
Nebula (2002-03-14 09:33) [8]

В чем у тебя ошибка? Что тебя не устраивает?

← →
hooky-mars (2002-03-14 14:59) [9]

Nebula
К примеру в поле МЕМО введено <frameset rows=100,* border=0>
надо чтобы програ обдельно проверила по базе :frameset,rows,border. А по этому коду проверяется так: "frameset rows=100,* border=0"

← →
hooky-mars (2002-03-14 20:11) [10]

>Модератору
А что данный вопрос трёп? Мне так не кажется!

← →
Anatoly Podgoretsky (2002-03-14 22:32) [11]

":" + Edit1.Text

← →
hooky-mars (2002-03-15 20:19) [12]

Anatoly Podgoretsky
А по подробнее

← →
Anatoly Podgoretsky (2002-03-15 22:06) [13]

Куда уж подробнее, полный еод

← →
Anatoly Podgoretsky (2002-03-16 10:58) [14]

Ну да тебе надо еще удилить не нужные символы, все что от знака = до запятой и *
Удалишь их и получишь ":frameset,rows,border"

← →
hooky-mars (2002-03-17 19:05) [15]

Anatoly Podgoretsky
да уменя неплучается! По тому коду, а Ваша вставка ":" + Edit1.Text до меня не доходит

← →
Anatoly Podgoretsky (2002-03-17 19:11) [16]

А что доходит

Проверка Найти похожие ветки