Hallo,
wollte in einem DBEdit Zeichen löschen und dann zum nächsten Datensatz wechseln.Aber es funktioniert nicht.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
text: string;
begin
AbsTable1.First;
ProgressBar1.Max := AbsTable1.RecordCount;
ProgressBar1.Min := 0;
ProgressBar1.Position := i+1;
while not AbsTable1.Eof do
begin
DBEdit4.Text:=StringReplace(DBEdit4.Text,'"','',[rfReplaceAll]);
AbsTable1.Next;
ProgressBar1.StepIt;
Application.ProcessMessages;
end;
end;