Einzelnen Beitrag anzeigen

Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#4

Re: Buchstaben ersetzen

  Alt 19. Mai 2007, 23:34
Was du meinst ist der ASCII Code, das ist eine Zeichentabelle in dem alle standartzeichen sind, sollten 256 sein..
wenn du nur bestimmte zeichen, meinetwegen a-z und 0-1 ändern willst, kannst du es manuell ändern...
du mußt das ganze dann in einem array of integer, oder mit trennzeichen machen.
Die Arraymethode währe vorzuziehen.

Delphi-Quellcode:
Procedure CalcString(s:STring);
var
  a:Array Of Integer;
  i :Integer;
  b:String;
begin
setlengh(a,Length(s))
for i:=0 to Length(S)-1 do begin
  a[i]:=Ord(Lowercase(s[i]));
end;

for i:=0 to length(a)-1 do begin
  b:=b+'|'+IntToStr(a[i])
end;
showmessage(b);
Diese Procedure soll ein kleiner anreiz sein....
So wie sie hier ist, ist sie eigenldich recht unsinnig,

MfG Real Thunder

Edit: Code ist ungetestet
  Mit Zitat antworten Zitat