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

Delphi-Quellcode:

if ClientSocket.RemoteHost = combobox1.items then

versucht nur das geht nicht..

Dannach wollte ich mit

Delphi-Quellcode:

    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?
:wall:

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

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]

@Rastaman:Du weisst schon, was

Delphi-Quellcode:

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

bedeutet? :mrgreen:

[Rastaman]

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