Текущий архив: 2004.12.05;
Скачать: CL | DM;
Вниз
Вопрос поиска. Найти похожие ветки
← →
Mih (2004-11-04 15:30) [0]Для поиска записи пишу таким образом:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var strField: String;
begin
if Key = #13 then begin
if Edit1.Text="" then begin
MessageDlg ("Не заданы условия поиска!", mtInformation, [mbOK], 0);
end
Else
case RadioGroup1.ItemIndex of
0:strField:="TN";
1:strField:="FAM";
end;
if not Table1.Locate(strField, Edit1.Text, [loCaseInsensitive]) then begin
Beep;
MessageDlg ("Запись не найдена!", mtInformation, [mbOK], 0);
end;
end;
end;
Так как табельные номера (TN) не повторяются, здесь никаких проблем. А с фамилиями (FAM) проблема в том, что нахожу только первую запись. Подскажите, пожалуйста, как сделать, чтобы последовательно были найдены все фамилии.
Спасибо.
← →
Mih (2004-11-04 15:51) [1]Удалено модератором
← →
Johnmen © (2004-11-04 15:58) [2]Бежишь по набору данных, от начала до конца, и проверяешь каждую запись на удовлетворение своих условий...
← →
Mih (2004-11-04 16:17) [3]Johnmen © (04.11.04 15:58) [2]
А можно пример?
← →
Johnmen © (2004-11-04 16:24) [4]
Table1.First;
while not Table1.Eof do begin;
if AnsiUpperCase(Table1.FieldByName(strField).AsString)=AnsiUpperCase(Edit1.Text) then
<найдено, делаем своё дело>;
Next;
end;
← →
Mih (2004-11-08 10:21) [5]Johnmen © (04.11.04 16:24) [4]
Только сегодня смог увидеть.
Спасибо!!!
Страницы: 1 вся ветка
Текущий архив: 2004.12.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
