Kommandozeilen Programm innerhalb von Delphi

[lorus]

Huhu zusammen,

hab mir noch mal den Code von SirThornberry hergenommen, der gefällt mir im Prinzip auch besser als die TDosCommand-Kompo.

Hab im Forum jetzt noch folgende Funktionen für Ascii --> Ansi Konvertierung gefunden und umgedreht.

Delphi-Quellcode:

function Ascii2Ansi(const s:AnsiString):AnsiString; 
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      OemToChar(Pchar(Result), Pchar(Result));
   end;
end;

function Ansi2Ascii(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      CharToOem(Pchar(Result), Pchar(Result));
   end;
end;

und hab das dann so in den Code eingebaut:

Delphi-Quellcode:

procedure TForm1.FClbProc(Sender: TObject; const ABuffer: String; ABufSize: Cardinal);
var LNew: String;
    LPos: Integer;
begin
  LNew := copy(ABuffer, 1, ABufSize);
  LPos := pos(#$C, LNew);
  if (LPos > 0) then
  begin
    MemoOutput.Text := '';
    LNew := copy(LNew, LPos + 1, Length(LNew));
  end;
  MemoOutput.Text := Ansi2Ascii(MemoOutput.Text + LNew);
  PostMessage(MemoOutput.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;

Die Veränderung in der Zeile:
MemoOutput.Text := Ansi2Ascii(MemoOutput.Text + LNew); bringt aber leider nicht den gewünschten Erfolg :-/

Habt ihr eine Idee, wie ich es richtig hinbekommen könnte?

Grüße,

Lorus