Stringgröße und Vergleich zwischen String und Strings

[Rastaman]

Delphi-Quellcode:

function IsPresent(cb: TComboBox; Str: String): Boolean;
var
  i: Integer;
begin
  Result := False;
  if cb.Items.Count > 0 then
    for i := 0 to cb.Items.Count - 1 do
      if cb.Items[i] = Str then
      begin
        Result := True;
        Exit;
      end;
end;

Aufruf:

Delphi-Quellcode:

if IsPresent(ComboBox1, ClientSocket.RemoteHost) then
  //vorhanden
else
  //nicht vorhanden

Zu 2:
Da musst du das OnKeyDown Ereignis des RichEdits nutzen und den Eintrag nicht erlauben, wenn schon 160 Zeichen vorhanden sind.
Ausserdem kannst du noch VK_RETURN abfangen, um Zeilenumbrüchen vorzubeugen. Vergiss aber nicht, dass man immer noch Copy n Paste machen kann!