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:
26:
27:

procedure tform7.fsg(var tbx:TTable; Qx:TQuery);
var n : integer;
  gef : boolean;
begin
  gef := false;
  Tbx.First;
  Repeat
    if (Tbx.fieldbyname('Name').asstring = Qx.fieldbyname('NAME').asstring) and
       (Tbx.fieldbyname('VorName').asstring = Qx.fieldbyname('VorNAME').asstring) and
       (Tbx.fieldbyname('Klasse').asstring = Qx.fieldbyname('Klasse').asstring) then gef := true
    else Tbx.Next;
  until gef or Tbx.eof;
  if gef then
  begin
    stringgrid1.ColCount := Tbx.FieldCount;
    with stringgrid1 do
    begin
      for n := 0 to Tbx.fieldcount-1 do
      begin
        cells[n,0] := Tbx.fields[n].FieldName;
        cells[n,1] := Tbx.Fields[n].asstring;
      end;
    end;
    BuchMain.gridbreite(Stringgrid1, form7.Width, buchDM_Dlg.fontdialog1.Font.size);
  end
  else showmessage('Datensatz nicht gefunden');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

if gef then
          begin
            BuchMain.TbSchueler.edit;
              for n := 0 to 4 do
                BuchMain.TbSchueler.fields[n].asstring := stringgrid1.cells[n,1];
              BuchMain.TbSchueler.fieldbyname('GEBDAT').AsDateTime := strtodate(stringgrid1.cells[5,1]);   // 5!!!
              for n := 6 to stringgrid1.ColCount-1 do
                BuchMain.TbSchueler.fields[n].asstring := stringgrid1.cells[n,1];
            BuchMain.TbSchueler.post;
            filesetdate(BuchMain.Label30.Caption+extractfilename(BuchMain.TbSchueler.tablename), datetimetofiledate(now));
            showmessage('Person aus ' + BuchMain.TbSchueler.tablename + #13 +
                        'wurde geändert:  ' + datetimetostr(now));