For - Schleife: Werte verteilen???

[romber]

Hallo,

Den Titel klingt ja blöd, aber mir ist nichts besseres eingefallen.
Ich habe eine Textdatei, in der mehrere durch Kommas geteilte Werte drin sind. Auf der Form gabe ich zwei ComboBoxen. Ich möchte die Werte so laden, dass jede erste Wort in der ComboBox1 hinzufügt wird, jede zweite der ComboBox2. Wie mache ich das?

Durch Komma geteilte Werte einer Liste hinzufügen geht ja ganz einfach mit einer temporären TStringList, in die ich Textdatei lade und CommaText festsetze. Dann in einer Schnleife die Strings der Liste hinzufügen. Etwa so:

Delphi-Quellcode:

...
var
strTemp: TStringList;
i: integer;
begin
strTemp := TStringList.Create;
strTemp.LoadFromFile('C:\Textdate.txt');
strTemp.CommaText := strTemp.Text;

for i := 0 to strTemp.Count - 1 do
ComboBox1.Items.Add(strTemp.Strings[i]);
...

[Kiste]

Also ich wuerde es mit Modulo uund ner If Abfrage machen...

in deiner schleife (so ca.):

Delphi-Quellcode:

  if (i mod 2) = 0 then
   begin
    ComboBox2.Items.Add(strTemp.Strings[i]);
  end else begin
    ComboBox1.Items.Add(strTemp.Strings[i]); 
  end;

mfg Kiste