Previously I said lookup FindNext - I meant FindKey
Locate - Not available ihn Delphi1. But FindKey and FindNearest are.
Sorry, Too early in the morning!
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Mike Osborne
Sent: Thursday, 10 June 1999 22:29
To: Multiple recipients of list delphi
Subject: Re: [DUG]: What the 'L' is the problem?
More on this:
A similar function but traversing a TOutline in one condition or doing a
FindNearest in another is terminating when 'C' is pressed but is fine
with 'L'.
Is KeyDown an unreliable event in D1?
-----Original Message-----
From: Mike Osborne < [EMAIL PROTECTED]>
To: Multiple recipients of list delphi < [EMAIL PROTECTED]>
Date: Thursday, 10 June 1999 22:02
Subject: [DUG]: What the 'L' is the problem?
I suspect the following has either a very complex or very stupid
explanation.
Advice please.
In a D1 app I display a grid from a query sequenced by Description. When
the user presses a character key I position in the grid to the first
entry with that letter. The Datasource gets detached and attached
because it looks ugly watching the progress and detached is much faster.
So far so good.
The function works fine for every letter other than the letter 'L'. I
have been through the alphabet on this, all but 'L' is OK. When 'L' is
pressed, the program terminates.
This same problem has been reported on a different (client's) machine
also. The problem occurs with different data as well. Same problem if
there is Description beginning with 'L' or not.
In debug I can trace it as far as the "while" loop - it seems to spin
out at that point.
procedure TViewer.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) then
OKBtnClick(Sender);
if (not (chr(Key) < 'A') and (not (chr(Key) > 'Z')))
or (not (chr(Key) < 'a') and (not (chr(Key) > 'z')))
or (not (chr(Key) < '0') and (not (chr(Key) > '9'))) then begin
Screen.Cursor := crHourGlass;
DBGrid1.DataSource := Nil;
with qrydash do begin
if (copy(Fields[2].asstring,1,1) > chr(Key)) then begin
First;
end;
while ((copy(Fields[2].asstring,1,1) < chr(Key)) and (not eof)) do
begin
Next;
end;
{ if no entries for a letter, show previous highest entry }
if (copy(Fields[2].asstring,1,1) <> chr(Key)) and not eof then
begin
Prior;
end;
end;
DBGrid1.DataSource := DS;
Screen.Cursor := crDefault;
end;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
