Hallo,
also ich habe da ein Problem. Ich möchte in einer Delphi Konsolenanwendung einen
Text als String einlesen. Die einzelnen Zeichen des Strings sollen dann als ASCII
Code in einem Integer Array abgelegt werden. Das ganze funktioniert auch soweit.
Wenn ich den Integer Array nun aber in einem Ausgabestring ablege und diesen
dann ausgebe, dann ist das letzte ausgegebene Zeichen manchmal irgendein Sonderzeichen.
War das letzte Zeichen eine Zahl dann wird es immer ein Sonderzeichen, war es ein Buchstabe dann ist es wohl von der Textlänge abhängig ob es ein Sonderzeichen wird.
Was mache ich falsch?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| var eingabe,ausgabe : string;
i: integer;
Text : Array of integer;
begin
write('Text eingeben: ');
readln(eingabe);
setlength(Text,length(eingabe));
for i:= 1 to length(Text) do
Text[i]:=ord(eingabe[i]);
setlength(ausgabe,length(Text));
for i:= 1 to length(Text) do
ausgabe[i]:= char(Text[i]);
writeln('Eingabe: ',eingabe);
Writeln('Ausgabe: ',ausgabe);
readln; |
Moderiert von 
Narses: Topic aus Sonstiges (Delphi) verschoben am Mi 23.04.2008 um 23:37
