Processmessage

[shmia]

Der Sourcecode oben ist ja sehr langsam.
so geht es deutlich schneller und eleganter:

Delphi-Quellcode:

function StrReplaceChars(const S: string; const Chars: TSysCharSet; Replace: Char): string;   // kopiert aus der JCL
var
  I: Integer;
begin
  Result := S;
  for I := 1 to Length(S) do
    if Result[I] in Chars then
      Result[I] := Replace;
end;

procedure TWortsuche.SonderZeichen(Sender: TObject); 
var iLauf:integer; 
begin 
  For iLauf:=0 to Listbox_Seitenwoerter.Items.Count-1 do 
  begin 
    Application.ProcessMessages; 
    IF bAbbruch then break; 
    Listbox_Seitenwoerter.Items[iLauf] := StrReplaceChars(Listbox_Seitenwoerter.Items[iLauf], [#32..#64, #91..#96   {bitte selbst ergänzen}], ' ');
  end;