Vorstellung und Frage

[hathor]

An der gleichen Stelle hatte ich ursprünglich eine REPLACE-Funktion.
Man kann auch eine Checkbox einbauen:

Delphi-Quellcode:

...
if GetConsoleOutput(GetSystemDir +'\ping.exe '+Edit1.text, Output, Errors) then
      Memo1.Lines.AddStrings(Output);
if CheckBox1.Checked then
BEGIN
  SAnsi := AnsiString(Memo1.Text);
  OemToCharBuffA(PAnsiChar(SAnsi), PAnsiChar(SAnsi), Length(SAnsi));
  Memo1.Text := String(SAnsi);
END;
  finally
    Output.free;
    Errors.free;
  end;
end;