Wczytywanie do Comboboxa dwoch zmiennych

0

Witam!
Mam zamiar napisać bota który klikał by w określone miejsca.
Napisałem program(ala konfigurator) ktorym mozemy sobie wklikac dana liczbe miejsc na pul;picie on to zapisuje do pliku txt w takiej formie

404 263
93 262
324 436
524 479
202 441
343 366
779 170
191 99
570 165
507 407
398 362

Teraz w programie głównym(odpowiedzialnym za klikanie)

chce aby program wczytywał te wartości do dwóch Combo boxów
np jak w pliku txt mam pozycje
779 170
to chce tak tow czytac do programu zeby
W combobox został dodany779 a w combobox2 170
i tak do konca listy

próbowałem z czymś takim

Var
Plik:TextFile;
Jezyk, Stan : String[3];
Begin
AssignFile(Plik,Edit1.Text);
Reset(Plik);
While not eof(plik) do
Begin
Readln(Plik,Jezyk,Stan); // odczytujemy dwie kolumny I podstawiamy je pod dwie zmienne
ComboBox1.Items.Add(Jezyk); // dodaj pozycję do ComboBox1 [wrzuć go sobie na formę:]]
ComboBox2.Items.Add(Stan); // j.w
End;
CloseFile(Plik);
End;

Ale ten kod wszystko mi do combobox1 ładuje ;/

Błagam pomózcie bo ja juz nie mam pomyslu

0

copy+pos+spacja to #32

A zresztą wyprzedzę pytanie i masz kod

var
  SL :TStringList;
  i  :Word;
  cp :Byte;

begin
  SL := TStringList.Create();
  SL.LoadFromFile('nazwa_pliku.txt');
  ComboBox1.Clear();
  ComboBox2.Clear();
  for i := 0 to SL.Count-1 do
    begin
      cp := Pos(' ', SL.Strings[i]);
      C1.Items.Add(Copy(SL.Strings, 1, cp-1));
      C2.Items.Add(Copy(SL.Strings, cp+1, Length(SL.Strings[i]));
    end;
  SL.Free();
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1