ComboBox - načítanie položiek zo súboru – Delphi – Fórum – Programujte.com

Ahojte,
chcem načítavať položky do ComboBoxu z obyčajného txt súboru nasledovným kódom:

procedure TForm11.BitBtn2Click(Sender: TObject);
var
   F: TextFile;               
   line: string;
begin
      
      if not FileExists('Data\Login\users.txt') then begin
              MessageDlg('Zoznam užívateľov Neexistuje!', mtWarning, [mbOk], 0);
              end
        else begin
              AssignFile(F, 'Data\Login\users.txt');
              Reset(F);
              while ( not( eof(F) )) do begin
              ReadLn(F,line);
              ComboBox1.Items.Add(line);
              end;
              CloseFile(F);
        end;
end;

V súbore user.txt sú štyri riadky s nasledovnými položkami:

01
02
03
04

Avšak po kliknutí na tlačidlo, sa  ComboBox rozbalí na jeden riadok, v ktorom sú nejaké divné znaky.
Viď. obrázok:

Připojen obrázek.

Vie mi niekto poradiť, čo je nesprávne nastavené, alebo kde je vlastne chyba?  Ďakujem, G.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
DELPHI 3  Client/Server Suite

a nema combobox u atributu Items taky loadFromFile() ??

Ahoj,
LoadFromFile u Items nie je.  Skusal som to nasledovne:
 

combobox1.items.LoadFromFile('data\Login\users.txt');

Výsledok je skoro identický ako v prvom prípade ...  :-(  

#3 Greno
ja to zkousel v lazarusu a fungovalo to krasne... takze jedine ze mas nejaky prapodivny kodovani jako utf16 a tak

Skúsil som to aj v Delphi 7 - výsledok je rovnaký ...

Vytvoril som nový txt súbor a ručne doň napísal položky ... výsledok je taký, ako má byť.

Porovnával som oba txt súbory, oba majú nastavený rovnaký font, rovnaké kódovanie, rovnaké atribúty, tak neviem, kde bola chyba ...
Každopádne ďakujem, Greno