CharToString

[marabu]

Delphi-Quellcode:

procedure TfrmTelnetDemo.edtSendCommandKeyPress(Sender: TObject;
  var Key: Char);
var
  sa: TStringDynArray;
  i, iCommands: Integer;
  s: String;
begin
  if not ((key = #13) and IdTelnetDemo.Connected) then
    Exit;
  sa := Explode('?', edtSendCommand.Text);
  for iCommands := 0 to Pred(Length(sa)) do
  begin
    s := sa[iCommands];
    for i := 1 to length(s) do
      IdTelnetDemo.SendCh(s[i]);
    IdTelnetDemo.SendCh(#13);
  end;
  edtSendCommand.Clear;
  edtSendCommand.SetFocus;
end;

Grüße vom marabu