Stringlist in ComboBox von Formeditor übergeben

[lra_nea]

Hallo zusammen,

ich habe in einem Client Command eine SQL-Abfrage gestartet in der mir alle Servernamen unseres Netzes zurückgegeben werden. Das Ergebnis der Abfrage lasse ich über den Befehl "StringList" immer wieder zu einer Variable hinzufügen. Der Inhalt der Variable sieht nun so aus: "PCNAME01,PCNAME02,PCNAME03..."
Dies funktioniert auch, da ich die Variable schon mal über einen Dialog ausgegeben habe.

Nun möchte ich die einzelnen PC-Namen in eine ComboBox des Formeditors übergeben. Das Problem ist bei mir wahrscheinlich, dass der Inhalt der Variable in der oben aufgezeigten Struktur übernommen wird. (Die PC-Namen sind kommagetrennt)
Die ComboBox benötigt aber jeden einzelnen PC-Name ohne Komma und jeweils in einer eigenen Zeile. Beispiel:

PCNAME01
PCNAME02
PCNAME03

Wie kann ich dieses Problem lösen?

Gruß

S. Danner

[hschriek]

Hallo!

Code: Alles auswählen

var
  a: TStringlist;
...

begin
  a := TStringlist.create();
  try
    a.commatext := 'PCNAME01,PCNAME02,PCNAME03';
    combobox1.items.addstrings(a);
  finally
    a.free;
  end;

....

end;

[lra_nea]

Guten Morgen Herr Schriek,

vielen Dank für das Script. Die Übergabe in die Form funktioniert wunderbar!

Jetzt habe ich noch ein kleines Problem bei meinem SQL-Script. Ich möchte bei der WHERE-Klausel die PC's und Notebooks aussortieren. Leider wird durch den Platzhalter für mehrere Stellen (%-Zeichen) meine Angabe als Variable behandelt. Wie muss ich das %-Zeichen angeben, dass es als Platzhalter für mehrere Stellen behandelt wird?

Mein SQL-Script (vereinfacht):

SELECT
CLT_CLIENTS.COMPUTERNAME
FROM
CLT_CLIENTS
WHERE
CLT_CLIENTS.COMPUTERNAME NOT LIKE '%PC%' AND
CLT_CLIENTS.COMPUTERNAME NOT LIKE 'NEANB%NB%'
GROUP BY CLT_CLIENTS.COMPUTERNAME

Gruß
S. Danner

[hschriek]

Dafür einfach doppelte % machen!