Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Май

Как сделать загрузку в combobox из csv-файла

Posted by Chas under Delphi, Заметки

FaTaL
Ну вот например сама процедура загрузки:

procedure TForm1.LoadCSV(FileName: string; Obj: TComboBox);

var

  f : TStringList;

  i : word;

begin

  f := TStringList.Create;

  f.LoadFromFile(FileName);

  Obj.Clear;

  for i := 0 to f.Count - 1 do

    begin

      Obj.Items.Add(Copy (f.Strings, 1, pos (';', f.Strings)-1));

    end;

  f.Free;

end;

А вот её вызов:

procedure TForm1.FormCreate(Sender: TObject);

begin

  LoadCSV (ExtractFilePath (Application.ExeName) + 'rezec.csv', ComboBox1);

  LoadCSV (ExtractFilePath (Application.ExeName) + 'steel.csv', ComboBox2);

end;

тема на форуме