function IsStrANumber(const S: string): Boolean;
var
P: PChar;
begin
P := PChar(S);
Result := False;
while P^ <> #0 do
begin
if not (P^ in ['0'..'9']) then Exit;
Inc(P);
end;
Result := True;
end;
procedure TForm1.JvEdit19KeyPress(Sender: TObject; var Key: Char);
begin
if IsStrANumber(jvEdit19.Text) = True
then jvCombobox3.Text:='ID'
else jvCombobox3.Text:='Nazwisko';
if jvEdit19.Text = '' then jvCombobox3.Text:='';
end;
Mam sobie taką funkcyjkę i jej wywołanie.
Chodzi o to, gdy wpisuję w komponent jvEdit19 jakś cyfrę to w komponencie jcVombobox3 wyświetla sie napis "ID", w przeciwnym wypadku "Nazwisko".
Na czym polega problem?
Napis "ID" pojawia się dopiero po wpisaniu dwóch cyfr zamiast przy pierwszej.
czyli nie znajde uzytkownika z ID równym od 1 do 9 tylko dopiero od 10.
Jak poprawic ten błąd? Co napisałem źle?
Dziękuję. [soczek]