All pastes #77769 Raw Edit

Something

public text v1 · immutable
·published 2006-07-03 11:13 UTC
rendered paste body
  if Query1.FieldByName('Sor_Szam').AsInteger > 425 then
    begin
      Query1.Edit;
      Query1.FieldByName('Sor_Szam').AsInteger:=425;
    end;