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

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

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

31st
Май

Функция загрузки csv в stringrid

Posted by Chas under Delphi

phomm
Если вдруг пригодится моя функция загрузки csv в стринггрид

procedure CsvToStrGrid(csvname: string; sg: Tstringgrid);

var

  sl, sld : tstringlist;

  i, j : byte;

begin

sl := tstringlist.create();

sl.loadfromfile(csvname);

sg.rowcount := sl.count;

for i := 0 to sl.count-1 do

  begin

  sld := tstringlist.create;

  sld.delimiter := ';' ;

  sld.delimitedtext := sl;

  sg.colcount := max(sld.count, sg.colcount); // uses math

  for j := 0 to sld.count-1 do

    sg.Cells[j,i] := sld[j];

  freeandnil(sld);

  end;

sl.free;

end;