Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#13

Re: im FileStream bestimmte Zeichen ersetzen

  Alt 4. Jun 2009, 11:26
Hallo zusammen,

falls es sich um das Ersetzen von einzelnen Zeichen dreht, nutze ich immer so etwas:

Delphi-Quellcode:
var
  UT = array [0..255] of byte;

...
  // array initialisieren
  for i:=0 to 255 do
    UT[i]:=i;
  //zu übersetzende Zeichen definieren
  UT[$0A]:=$20;
....

for i:=0 to sizeof(buffer)-1 do
  buffer[i]:=UT[buffer[i]];
Gruß
K-H

[edit] Die Zeit hab ich noch nie gemessen! [/edit]
  Mit Zitat antworten Zitat