Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;

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



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]

А что доходит




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.04 c
14-70008          Феликс                2002-03-16 20:43  2002.04.22  
Компоненты?


1-69932           inko                  2002-04-09 15:46  2002.04.22  
Значок программы в диалоге.


14-70020          ASM                   2002-03-16 01:01  2002.04.22  
Профессианальная Помощь нужна!


3-69691           GenBr                 2002-03-28 14:07  2002.04.22  
midas


3-69666           Sewix                 2002-03-28 20:21  2002.04.22  
Поиск по Paradox