Live
Happy Live :)
Ответ: Помощь по Delphi
Помогите пожалуста кто знает! Как ячейки компонента GenericStringGrid одинаково записать в файл. Я воспользовался советом
AssignFile(base_t,'basedata.txt');
{$I-}
Reset(base_t); //
{$I+}
for i:=0 to 52000 do
begin
readln(base_t,bufer);
fio:=copy(bufer,0,22);
adres:=copy(bufer,33,70);
tel:=copy(bufer,23,8);
ListBox1.Items.Add(fio);
ListBox2.Items.Add(tel);
ListBox3.Items.Add(adres);
// VALUES
// FIO, :ADRESS, :TEL)
end;
IBQuery1.Close;
IBQuery1.Open;
Где-то так...
И Вообще как достучаться к тем ячейкам?
Заранее спасибо.
ЗЫ на скрине внизу тот самый StringGrid
Помогите пожалуста кто знает! Как ячейки компонента GenericStringGrid одинаково записать в файл. Я воспользовался советом
You must be registered for see links
за что ему большое спасибо. Но!! В том примере данные считываются из файла XLS в компонент StringGrid. А как мне из этого компонента экспортировать данные ну к примеру в текстовый файл (для дальнейшего импорта в бд)AssignFile(base_t,'basedata.txt');
{$I-}
Reset(base_t); //
{$I+}
for i:=0 to 52000 do
begin
readln(base_t,bufer);
fio:=copy(bufer,0,22);
adres:=copy(bufer,33,70);
tel:=copy(bufer,23,8);
ListBox1.Items.Add(fio);
ListBox2.Items.Add(tel);
ListBox3.Items.Add(adres);
// VALUES
// FIO, :ADRESS, :TEL)
end;
IBQuery1.Close;
IBQuery1.Open;
Где-то так...
И Вообще как достучаться к тем ячейкам?
Заранее спасибо.
ЗЫ на скрине внизу тот самый StringGrid