1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.Button2Click(Sender: TObject);
var i: Integer;
begin
 FOR i:=1 TO 2 DO
if Application.MessageBox(IntToStr(Table1.Locate('Abreise', DateToStr(Date()-1), [loCaseInsensitive])), 64+0)
=IDOK then close;
end;
end.					

1:

for i := 1 to 2 do begin //...					

1:

While not Table1.Eof do					

1:

'SELECT * FROM TDeinerGaesteTable WHERE Abreise = DateToStr(  Trunc(Gewuenschtes_Datum) +1 );'					

1:

'SELECT * FROM TDeinerGaesteTable WHERE Abreise =   ' + QuotedStr(DateToStr(Trunc(Now +1))) + ';'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

StopSearch := false;  // deklariert als Boolean
TableIndex := Table1.RecNo; // Um am Ende der Suche zum aktuellen Record zurueckzukehren

Table1.First;
    if Table1.FindFirst then begin
      repeat
      if Table1.ControlsDisabled = false then begin
      Table1.DisableControls;
      end;
        if AnsiLowerCase(Table1.FieldByName('Abreise').AsString) = AnsiLowerCase('DEIN SUCHWORT') then begin
          Table1.EnableControls;
          if MessageDlg('Record found! Continue with Search-Function?' + #13 +
          'Result: Hier kannst du alle moeglichen Informationen angeben', mtConfirmation, [mbNo, mbYes], 0) = mrNo then begin
          StopSearch := true;
          end else Table1.DisableControls;
          end;
      until (StopSearch = true) or (Table1.FindNext = false);
     If StopSearch <> true then begin
     MessageDlg('Ende der Tabelle erreicht!', mtInformation, [mbOK], 0);
     Table1.RecNo := TableIndex; // Falls nichts gefunden wurde, zum urspruenglichen Record zurueckspringen
    end;
    end;
finally
Table1.EnableControls;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TMenue.FormActivate(Sender: TObject);
var i: Integer;
begin
 FOR i:=1 TO 2 DO
 if Table1.Locate('Abreise', DateToStr(Date()-1), [loCaseInsensitive]) then
   Table1.Delete;
end;					

1:

SELECT Nachname, Abreise FROM Reha WHERE Abreise  =  +(DateToStr(Trunc(Now +1)));					

1:
2:
3:

Query.SQL.Text := 'SELECT Nachname, Abreise FROM Reha WHERE Abreise  = :abreise';
Query.ParamByName('abreise').value := Date;
Query.Open;					

1:
2:
3:

If Query1.Active = true then Query1.Active := false;
Query1.SQL.Text := 'SELECT Nachname, Abreise FROM Reha WHERE Abreise = ' + QuotedStr((DateToStr(Trunc(Now +1)))) + ';';
Query1.Active := true;					

1:

Query1.SQL.Text := 'SELECT Nachname, Abreise FROM Reha WHERE Nachname LIKE ' + QuotedStr('ElTonno');					

1:

Query.Active := false;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.FormActivate(Sender: TObject);
begin
While not Table1.Eof do
begin
    if Table1.FieldByName('Abreise').Value < Now -0 then ListBox1.Items.Add(Table1.FieldByName('Nachname').AsString);
end;
end;					

1:
2:
3:
4:
5:
6:

Table1.First;
while not Table1.EOF do
  begin
    //irgendwas mit dem Datensatz machen
    Table1.Next;
  end;