Guten Tag,
ich bin gerade dabei ein Konsolenprogramm zu schreiben, welches mir bei einer Eingabe eines Strings zum einen die einzelnen Character bzw. Zeichen und zum anderen die Ordinalwerte der Character ausgibt.
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
function character(eingabe: String): String;
var
i: Integer;
begin
for i := 1 to length(eingabe) do
result := result + eingabe[i] + chr(32);
end;
function ordinal(eingabe: String): String;
var
i: Integer;
begin
for i := 1 to length(eingabe) do
result := result + IntToStr(ord(eingabe[i])) + chr(32);
end;
var
str: String;
begin
writeln('Eingabe:'); // <-- An dieser Stelle, also direkt hinter "Eingabe: " , möchte ich den String einlesen, also ohne Zeilenumbruch durch readln.
readln(str);
writeln;
writeln('Zeichen: ' + character(str));
writeln;
writeln('Ordinalwerte: ' + ordinal(str));
readln;
end.
Wäre so etwas möglich ?
MfG
Hauke