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 ^^