Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Direkt mit ASCII-Werten arbeiten?


Carola82 - Sa 21.06.03 13:47
Titel: Direkt mit ASCII-Werten arbeiten?
Hallo,

hab mal wieder ein kleins Programmierproblem.
Wie kann man in einer IF-Anweisung testen, ob es sich um einen bestimmten ASCII-Wert handelt?
Hier mein kärglicher Programmentwurf, der natürlich nicht geht:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
 
program AsciiCodeausgeben;
{$APPTYPE CONSOLE}
uses sysutils;
var v: string;
    charly: array[1..100] of string;
    i:integer;
    w:integer;
begin
   i:=1;
   writeln('Geben Sie einen Buchstaben ein!Beenden Sie mit Eingabe von "."');
   begin
      repeat
       write('Buchstabe',i,':');
       read(v);
       w:=StrToInt((v));
         if w>#50 and w<#120 then           //hier liegt der FEHLER!
         begin
            charly[i]:=v;
            i:=i+1;
            writeln('ASCII-Code:',StrToInt((v)),'');
            readln;
         end;
      until v='.';
   end;
end.


TomT - Sa 21.06.03 13:57
strtoint wandelt Zeichenketten die Zahlen darstellen in integer um. Also wird aus '12345' der Wert 12345.
den ASCII-Wert des ersten Zeichens in deiner Zeichenkette bekommst du mit:

Delphi-Quelltext 
1:
 
w:= ord(v[1]);


Viel Erfolg

MFG TomT


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!