All pastes #77804 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-07-03 12:17 UTC
rendered paste body
  if Query1.FieldByName('Sor_Szam').AsInteger < 1 then
    begin
      Query1.Edit;
      Query1.FieldByName('Sor_Szam').AsInteger:=1;
      Query1.Post;
      Query1.Next;