Форум: "Потрепаться";
Текущий архив: 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]А что доходит
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c