|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: IOC-Code 2 Nationname und zurück
7. Jun 2011, 14:18
wie wäre es mit sowas
Delphi-Quellcode:
function Uebersetzen(const inw:string[3]):string;
begin
case longint(inw) of
longint('ABC'):result:='abcdef'
..
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|