загрузка в combobox

[SasukeSama]

1 столбец остальные я в эдиты буду загружать

[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[i], 1, pos (';', f.Strings[i])-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;

Так же лови файлы проекта, но только на Delphi XE2 Прога.zip

[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[i];
  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;

[SasukeSama]

Все хорошо но я сначало то в StringGrid гружу csv а потом из StringGridа в ComboBox))

[FaTaL]

Сообщение от SasukeSama

Все хорошо но я сначало то в StringGrid гружу csv а потом из StringGridа в ComboBox))

Зачем программу забивать ненужными объектами? Смотрел твою форму и там нет стрингрида. Ещё раз спрашиваю ЗАЧЕМ?

[SasukeSama]

там есть стрингриды они называються SG1 и SG2)) а взял я их что бы потом при выборе в ComboBox нужный материалл то едитам присваивались значения из csv)

[FaTaL]

Что-то на форме их не видно.

Ну раз уж так нужны они тебе, тогда используй код phomm'a

[SasukeSama]

Ну вот они 2 просто в них отображение мне не нужно))

[FaTaL]

Ну так я тебе и о чем. Зачем использовать лишнюю память, если этого совсем не нужно? Тогда уж вообще через Excel сделай, чтобы жрало так жрало память или вообще базу данных прикрути. Хотя дело твоё, как удобнее так и делай. Но если потом проект разрастётся...

P.S. Златоуст вроде как рядом с Челябинском? А всем изветсно Челябинские мужики настолько суровы... )))) Шучу.