1 Topic by kunar80 (edited by kunar80 2015-04-25 11:29:03)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Вопрос по сохранению данных грида в текстовый файл

Возможно ли на основе этого скрипта

procedure frm2_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
frm1.TableGrid1.SaveToTextFile('d:\file.txt'); // сохраняет данные в файл, в качестве разделителя колонок, используется символ запятой
end;

написать скрипт, чтобы в текстовый файл сохранялись данные только одной колонки, например (1)?

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопрос по сохранению данных грида в текстовый файл

Нет, попробуйте пожалуйста данный скрипт

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sl: TStringList;
    i,c: integer;
begin
    sl := TStringList.Create;
    c := Form1.TableGrid1.RowCount-1;
    for i := 0 to c do sl.Add(Form1.TableGrid1.Cells[0, i]);
    sl.SaveToFile('d:\1.txt');
    sl.Free;
end;
Dmitry.