Mehere Elemente eines Feldes löschen durch überschreiben?

[LoCrux]

@Amateurprofi

OK! Keine Einwaende (war ja auch nur Qick'N'Dirty direkt reingetippt).

Zitat:

Die Vervendung von Byte statt Char bringt meines Erachtens nichts, denn Char und Byte werden identisch abgewickelt.

Ich hab da, so dunkel in einer Gehirnwindung (dicht unterhalb der rechten Geheimratsecke), noch im Sinn
dass ich mal auf 'ner CodeGear-Seite was darueber gelesen hab. Ging da glaub um Suchen nach bestimmten Patterns
in grossen Textdateien.

Dann aendern wir aber auch

Delphi-Quellcode:

procedure KillAndFill(const Kill,Fill:Char;var StrArr:TCharArray);
var
  i           : Integer;
begin
  for i := 0 to High(StrArr)
      do if (StrArr[i]=Kill) then StrArr[i] := Fill;
end;