Okay ich mahce für die 3. Frage ein anderen Thread auf.
Aber ich muss ja
Delphi-Quellcode:
if memSend.Text = '' then
exit;
Delphi-Quellcode:
if memSend.Lines = '' then
exit;
Nur da bekomme ich TString und String sind Inkopatilbe Typen
Her mal der auszuführende code
Delphi-Quellcode:
Procedure TForm1.btnSendClick(Sender: TObject);
var
I: Integer;
begin
Memo2.Lines.Assign(memSend.Lines);
TcpClient1.RemoteHost := edtRemoteHost.Text;
TcpClient1.RemotePort := edtRemotePort.Text;
try
if TcpClient1.Connect then
for I := 0 to memSend.Lines.Count - 1 do
TcpClient1.Sendln(memSend.Lines[I]);
finally
TcpClient1.Disconnect;
end;
Memsend.Clear;
end;