All pastes #84813 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-07-11 11:11 UTC
rendered paste body
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Query1.Active then Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM cardmanager ORDER BY Kartya_Szam');
  Query1.Open;
end;

procedure TForm1.PopUp_AppendClick(Sender: TObject);
begin
  Query1.Append;
end;