Servus,
Ich soll für die Schule (mal wieder) ein kleines Programm zu Ascii schreiben. An sich kein problem, allerdings schaffe ich es nicht eine Variable mit 2 zu erfüllenden Bedingungen zu definieren, hier mein(e) Ansätze:
X soll größer als 65 und kleiner als 90 sein damit die Bedingung erfüllt ist:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| VAR
b : char;
x : Integer;
begin
b := edit1.text[1];
x := ord(b);
if 65 < x < 90 then
begin
x := x + 32;
end;
edit2.text := inttostr(x);
end; |
Fehler: [Fehler] Unit1.pas(36): Inkompatible Typen
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| VAR
b : char;
x : Integer;
begin
b := edit1.text[1];
x := ord(b);
if x > 65 < 90 then
begin
x := x + 32;
end;
edit2.text := inttostr(x);
end; |
Gleicher Fehler wie oben
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| VAR
b : char;
x : Integer;
begin
b := edit1.text[1];
x := ord(b);
if x > 65 AND x < 90 then
begin
x := x + 32;
end;
edit2.text := inttostr(x);
end; |
Und wieder der gleiche Fehler
Kann mir jemand sagen warum das nicht läuft, bzw. wo der fehler liegt?
Ich bedanke mich im vorraus
MFG
Danf
