Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: FastReplace mehrerer Zeichen in String
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
|