All pastes #80283 Raw Edit

Mine

public text v1 · immutable
·published 2006-07-06 08:04 UTC
rendered paste body
  if (Query1.FieldByName('Sor_Szam').AsInteger < 1) and (Query1.FieldByName('Sor_Szam').IsNull = false) then
    begin
      Query1.Edit;
      Query1.FieldByName('Sor_Szam').AsInteger:=1;
      Query1.Post;
      Query1.Next;