Processmessage

[knolli]

ich habe diesen code:

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;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~ Sonderzeichen löschen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TWortsuche.SonderZeichen(Sender: TObject);
var iLauf, i:integer;
begin
  For iLauf:=0 to Listbox_Seitenwoerter.Items.Count-1 do
  begin
    FOR i:=32 to 255 do
    Begin
      Application.ProcessMessages;
      IF bAbbruch then break;
      Listbox_Seitenwoerter.Items[iLauf] := StrReplaceChars(Listbox_Seitenwoerter.Items[iLauf], [#32..#64, #91..#96,#123..#195,#197..#213, #215..#219,  #221..#227, #229..#245, #247..#251, #253..#255], '');
//.....

es kommt dann eine fehlermeldung,dass inkompatible typen vorhanden sind... char und integer

woran liegt das?

[shmia]

... := StrReplaceChars(..., [#32..#64, #253..#255], {Fehler =>} ' ' {<= das muss ein Leerzeichen sein, kein leerer String !});

[knolli]

ah... ok danke!