Stringgröße und Vergleich zwischen String und Strings

[Knotti2005]

Hallo Leute..

wie kann ich einen String (ClientSocket.RemoteHost) mit den Strings aus einer Combobox vergleichen..
Ich hab es schon mit

Orignal Code
if ClientSocket.RemoteHost = combobox1.items then versucht nur das geht nicht..

Dannach wollte ich mit

    Messagebox(Self.Handle, 'Die IP: ' + ClientSocket.RemoteHost +', ist noch nicht in der Empfängerliste vorhanden. Soll sie hinzugefügt werden?, 'Neuer Kontakt!', MB_ICONQUESTION or MB_JESNO); Abfragen ob die IP in diese Combobox hinzugefügt werden soll, wie ermittle ich jetzt welcher Button gedrückt wurde?


.................................................. .....................

2.Frage ich möchte gerne die Eingegeben Zeichen in einem RichEdit zählen, und dann nach und nach je mehr man Eingibt bis 160 damidt eine progressbar zu 100% füllen, und die Eingabe verweigern.

Wie mach ich das?

[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!

[Knotti2005]

Zitat:

[Fehler] Unit1.pas(140): Undefinierter Bezeichner: 'Count'
[Fehler] Unit1.pas(141): Ausdruck erwartet, aber 'TO' gefunden
[Fehler] Unit1.pas(141): 'NACH' erwartet, aber 'DO' gefunden
[Fehler] Unit1.pas(146): Inkompatible Typen: 'Integer' und 'procedure, untyped pointer or untyped parameter'
[Fataler Fehler] Project1.dpr(7): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Rastaman]

Du weisst schon was die rote Box bedeutet, gell?

//Edit: Jetz aba ^^

[alzaimar]

@Rastamanu weisst schon, was

Delphi-Quellcode:

If MyComboBox.Items.IndexOf (ClientSocket.Remotehost) = -1 Then
  MessageBox ...

bedeutet?

[Rastaman]

Na klaaaar
Das macht doch intern das Gleiche
Ok Ok, ich kenn mich mit den ganzen VCL Geschichten nich grad gut aus, und die Lösung erschien passend