Allgemeine Fragen und Sound by OnClick

[Knotti2015]

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;