Nummernkreise

[omata]

Hallo hoika,

wenn man jetzt noch das Add weglässt, wird es noch übersichtlicher... (dann ist auch der Umstieg auf andere Komponenten leichter, dort ist man nämlich wieder von TStrings weggegangen)

Delphi-Quellcode:

procedure SetNo(const theNumber: Integer);
var
  bExists: Boolean;
begin
  // Anzahl der Records prüfen
  Query.SQL.Text:=
    'SELECT COUNT(*)'#13 +
    'FROM Einstellungen';
  Query.Open;
  try
    bExists:= (Query.Fields[0].AsInteger > 0);
  finally
    Query.Close;
  end;

  // update oder insert
  if bExists then
    Query.SQL.Text:=
      'UPDATE Einstellungen'#13 +
      'SET RNr = :RNr'
  else
    Query.SQL.Text:=
      'INSERT INTO Einstellungen(RNr)'#13 +
      'VALUES(:RNr)';

  Query.ParamByName('RNr').AsInteger:= theNumber;

  Query.ExecSQL;
end;

Gruss
Thorsten