Delphi-Quellcode:
function AnsiToIBMAscii(s: string): string;
var
ii: integer;
begin
Result := '';
for ii := 0 to Length(s) do
begin
case s[ii] of
#196: Result := Result + #142; //Ä
#214: Result := Result + #153; //Ö
#220: Result := Result + #154; //Ü
#228: Result := Result + #132; //ä
#246: Result := Result + #148; //ö
#252: Result := Result + #129; //ü
#223: Result := Result + #225; //ß
else
Result := Result + s[ii];
end;
end;
end;
function IBMAsciiToAnsi(s: string): string;
var
ii: integer;
begin
Result := '';
for ii := 0 to Length(s) do
begin
case s[ii] of
#142: Result := Result + #196; //Ä
#153: Result := Result + #214; //Ö
#154: Result := Result + #220; //Ü
#132: Result := Result + #228; //ä
#148: Result := Result + #246; //ö
#129: Result := Result + #252; //ü
#225: Result := Result + #223; //ß
else
Result := Result + s[ii];
end;
end;
end;
HINWEIS! //Um Eventuelle Fehler auszuschliessen
Die Schleifen gehen in diesem Beispiel von "0 to Length(s)".
Normalerweise gehen aber Schleifen von "0 to Length(s) -1" oder "1 to Length(s)", je nachdem wie man es haben will.
Das wie und was man als Variable "s" übergibt ist wichtig und dementsprechend ist die Zeile zu ändern.
Grüsse, Daniel
