procedure TfrmRacun.Edit3Change(Sender: TObject);
var
Duzina : integer;
S : string;
begin
S := Edit1.Text;
Duzina := Length(S);
// Sifra
if Duzina <= 6 then
begin
tblArtikli.Locate('Sifra',Edit3.Text,[loPartialKey]);
Edit4.Text := frmRacun.tblArtikliNAZIV.AsString;
end
else
begin
Pitanje ?
// Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji"
end
else
begin
tblArtikli.Locate('Barcode',Edit3.Text,[loPartialKey]);
Edit4.Text := frmRacun.tblArtikliNAZIV.AsString;
end
else
begin
Pitanje ?
// Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji
end;
Code: if tblArtikli.Locate('Sifra',Edit3.Text,[loPartialKey]) then
Edit4.Text := frmRacun.tblArtikliNAZIV.AsString
else
Edit4.Text := 'artikal ne postoji';