Konsolenprogramm - Zeichenkodierung

[haui95]

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

[Luckie]

Write.

[Namenloser]

Geht ganz einfach, indem du Write statt WriteLn verwendest:

Delphi-Quellcode:

write('Eingabe: ');
readln(str);

Dein Threadtitel ist aber sehr irreführend.

[haui95]

Danke

MfG