Hi,
ich habe ein problem das man nicht das Programm kompilieren kann.
Folgender Fehler wird ausgegeben:
Inkompatible Typen: 'Char' und 'String' in dieser Zeile:
IdTelnetDemo.SendCh(StringArray[Loop]);
Gibt es eine Funktion um Char in String umzuwandeln?
Alle bisherigen Beiträge haben mich leider nicht weitergeholfen
Delphi-Quellcode:
procedure TfrmTelnetDemo.edtSendCommandKeyPress(Sender: TObject;
var Key: Char);
var
StringArray : TStringDynArray;
Loop : Integer;
pcharstr : PChar;
pascalstring : String;
begin
StringArray := explode('?', edtSendCommand.Text);
if IdTelnetDemo.Connected then
for Loop := 0 to length(StringArray) - 1 do begin
if (key = #13) then begin
begin
IdTelnetDemo.SendCh(StringArray[Loop]);
IdTelnetDemo.SendCh(#13); //Eingabe senden
end;
end;
end;
end;