Änderungen in einer Datenbank erfassen

[TypusMensch]

Hm... entweder steh ich auf dem Schlauch... einfach eine Variable dann einbauen die hochzählt, wenn Pos('.', Meine_TableFeld1.AsString) > 0 ist...

oder:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
    change:boolean;
    anzahl:integer;
begin
anzahl := 0;
Meine_Table.First;
while not(Meine_Table.eof) do
  begin
  change := false;
  s := Meine_TableFeld1.AsString;
  for i := 0 to length(s) do
    begin
    if s[i] = '.' then
      begin
      s[i] := ',';
      change := true;
      end;
    end;
  if change then
    begin
    ListBox.Items.Add(Meine_TableID.AsString)
    inc(anzahl);
    end;
  Meine_Table.Edit;
  Meine_TableFeld1.AsString := s;
  Meine_Table.Post;
  Meine_Table.Next;
  end;
showmessage('Anzahl der geänderten Datensätze: '+inttostr(anzahl));
end;

Edit: Nicht über die Anzahl meiner Edits aufregen. Es ist schon viertel Fünf ^^