Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

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

AW: FastReplace mehrerer Zeichen in String

  Alt 7. Aug 2012, 17:18
mach es doch mit einem array:
Delphi-Quellcode:
myrightchar = array [0..255] of byte;
for i:=0 to 255 do
  if i="gültig" then myrightchar[i]:=i else myrightchar[i]:=0; //oder $20 oder .....

..blockread oder Filestream .....
for i:=0 to cred-1 do
writebuffer[i]:=myarray[readbuffer[i]];
Gruß
K-H

geht natürlich nur bis Ansi-Char...
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat