Hallo,
Welchen Quelltext.... ich hab ja noch keinen! Ich habe ein Programm das so änlich ist in
Quick Basic geschrieben, da habe ich das Problemm mit Data gelöst, da kannst du den Quelltext
haben, das selobe will ich jetzt in Delphi:
REM --- Tabelle ---
100
CLS
reihe1 = 8
reihe2 = 25
reihe3 = 42
reihe4 = 65
x = 3
y = reihe1
PRINT "
ASCII-BIT-X (Tabelle) Version 5.00"
FOR i = 65 TO 90
READ l(s)
x = x + 1
IF i = 78 THEN x = 4: y = reihe2
LOCATE x, y: PRINT CHR$(i); " "; CHR$(l(s))
NEXT i
x = 8
y = reihe3
LOCATE 4, y: PRINT "
ASCII="; CHR$(96); CHR$(96); "W"
LOCATE 5, y: PRINT "Zahlen="; CHR$(96); "Z"
LOCATE 6, y: PRINT "Umlaute="; CHR$(96); "AOU"
LOCATE 7, y: PRINT ", "; CHR$(15)
FOR i% = 1 TO 10
READ l$(s)
NEXT i%
FOR i = 1 TO 26
READ l$(s), k(s)
IF i = 13 THEN x = 4: y = reihe4
LOCATE x, y: PRINT l$(s); " "; CHR$(k(s))
x = x + 1
NEXT i
' ''...'' '
x = 4
y = reihe1 - 7
FOR i = 1 TO 60
IF i = 15 THEN x = 4: y = reihe2 - 7
IF i = 29 THEN x = 5: y = reihe3 - 7
IF i = 46 THEN x = 4: y = reihe4 - 7
IF i = 10 OR i = 20 OR i = 30 OR i = 40 OR i = 50 OR i = 60 THEN i = i + 1
LOCATE x, y: PRINT i
x = x + 1
NEXT i
LOCATE 3, reihe1 - 6: PRINT "W Z"
LOCATE 3, reihe2 - 6: PRINT "W Z"
LOCATE 3, reihe3 - 6: PRINT "W Z"
LOCATE 3, reihe4 - 6: PRINT "W Z"
LOCATE 18, reihe1 - 6: PRINT "
ASCII: 0="; CHR$(127); " / 00="; CHR$(127); CHR$(127)
x = 5
y = reihe1 - 4
FOR i = 0 TO 49
IF i = 13 OR i = 18 THEN x = x + 1
IF i = 12 THEN x = 4: y = reihe2 - 4
IF i = 23 THEN x = 7: y = reihe3 - 4
IF i = 36 THEN x = 4: y = reihe4 - 4
LOCATE x, y: PRINT i
x = x + 1
NEXT i
SLEEP
s:
DATA 16,17,18,19,22,23,24,25,26,27,38,35,4,216,42,43,45 ,46,47,58,60,61,62,91,92,93,94,126,155,158,171,172 ,174,
175,180,187
DATA sch,185,st,189,die,145,ch,188,der,157,ei,36,ing,19 3,ie,192,ung,194,tz,195,ich,204,er,205,und,221,en, 217,ver,
6,te,219,au,232,ck,241,ne,243,in,168,ab,158,ge,171 ,-,248,!,201,?,191,.,244,_,127