загрузка в combobox

[SasukeSama]

почитал в инете и сделал загрузку в комбобокс из csv-файла...а теперь как сделать загрузку в еще один комбобокс либо другой столбец этого файла а лучше вообще из другого файла во 2 шоб грузилось))

procedure TForm1.LoadCSVFile (FileName: String; separator: char);
var f: TextFile;
    s1, s2: string;
    i, j: integer;
begin
 i := 0;
 AssignFile (f, FileName);
 Reset(f);
 while not eof(f) do
  begin
   readln (f, s1);
   i := i + 1;
   j := 0;
   while pos(separator, s1)<>0 do
    begin
     s2 := copy(s1,1,pos(separator, s1)-1);
     j := j + 1;
     delete (s1, 1, pos(separator, s1));
     SG1.Cells[j-1, i-1] := s2;
     end;
   if pos (separator, s1)=0 then
    begin
     j := j + 1;
     SG1.Cells[j-1, i-1] := s1;
     end;
   SG1.ColCount := j;
   SG1.RowCount := i+1;
   end;
 CloseFile(f);
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var i:integer;
begin
combobox1.Clear();
for i:=0 to SG1.RowCount-1 do
Combobox1.Items.Add(SG1.Cells[0,i]);
end;

procedure TForm1.ComboBox2DropDown(Sender: TObject);
var i:integer;
begin
combobox2.Clear();
for i:=0 to SG1.RowCount-1 do
Combobox2.Items.Add(SG1.Cells[0,i]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LoadCSVFile('steel.csv',#59);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit2.Text:=SG1.Cells[1,ComboBox1.ItemIndex];
Edit9.Text:=SG1.Cells[2,ComboBox1.ItemIndex];
Edit10.Text:=SG1.Cells[3,ComboBox1.ItemIndex];
Edit11.Text:=SG1.Cells[4,ComboBox1.ItemIndex];
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
Edit1.Text:=SG1.Cells[6,ComboBox2.ItemIndex];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end

[SasukeSama]

ну что никто не знает как во второй комбобокс загрузить еще один csv файл??

[Прик]

Если вы не знаете как, то почему кто-то другой должен знать?

[SasukeSama]

Сообщение от Прик

Если вы не знаете как, то почему кто-то другой должен знать?

У всех людей разный опыт и по разному он получен... так что возможно кто-то сталкивался с этим и может подсказать!

[Человек_Борща]

эмм, вы задачу то, толком не описали.
Привели код, не понятно зачем нужный, и задачу толком не описали.

У других нет времени телепатоми работать..
Почитал, не понятно, что аватор хочет? Закрыл страницу, дальше серфишь..

[Stilet]

а лучше вообще из другого файла во 2 шоб грузилось

Так всетки? Если из другого файла то функция загрузки у тебя уже есть.
Если из того-же то опять таки твоя функция вполне подходит.
Это вообще код твой?

[SasukeSama]

ну как посмотреинет почитал сделал но как во ComboBox2 грузить другой csv...просто при данном коде не грузиться во второй ComboBox2Change данный с файла csv

[FaTaL]

Жесть. Опиши задачу понятнее. Выложи свой CSV файл и что из него и куда нужно загрузить? И я уверен, что найдётся тот, кто тебе напишет небольшую процедурку или функцию. Тем более CSV это обычный текстовый файл с разделителями. А в твоём большом, половино ненужном куске кода разбираться времени нет.

[SasukeSama]

Вот прога))) надо что бы в ComboBox1 грузился steel.csv.....а в ComboBox2 грузился rezec.csv...))

[FaTaL]

У тебя в обоих файлах по несколько "столбцов" Что тебе нужно грузить в Комбобох?