Sonderzeichen wo keine sein sollten

[hanselmansel]

Delphi-Quellcode:

htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml;

wort:= copy(htmlcode,i+10,10);            //wort aus html holen

for J:=1 to length(wort) do
  begin
  for H:=0 to 9 do
    zahl := (copy(wort,j,1)<>IntToStr(H))
  if not zahl then
    Delete(wort,j,1)                 //wenn nicht zahl zeichen löschen
  else 
    zahl := false;
  end;

Könnte so schon besser funkionieren. Immerhin darfst du nur auf die dezimalen Ziffern und nicht auf die Zahlen von 0 bis 10 abprüfen.

MfG,

hanselmansel