Stringgrid Delphi Заполнение Открытым Файлом

StringGrid - это компонент Delphi, который позволяет отображать данные в виде таблицы. С помощью него можно отображать и редактировать данные в удобном формате. Один из способов заполнения StringGrid - это использование данных из открытого файла.

Для загрузки данных из файла в StringGrid можно использовать следующий код:

var  FileName: string;  FileStream: TFileStream;  StreamRead: TStreamReader;  i,j: integer;begin  //выбор файла через диалог  if OpenDialog1.Execute then  begin    FileName := OpenDialog1.FileName;    FileStream:= TFileStream.Create(FileName,fmOpen);    StreamRead:= TStreamReader.Create(FileStream);    //цикл заполнения StringGrid    i:=0;    while not StreamRead.EndOfStream do    begin      StringGrid1.RowCount:= i+1; //увеличиваем количество строк на 1      //цикл заполнения ячеек      for j:=0 to StringGrid1.ColCount-1 do      begin        if not StreamRead.EndOfStream then          StringGrid1.Cells[j,i]:=StreamRead.ReadLine; //заполняем ячейку      end;      inc(i); //увеличиваем счётчик строк    end;    StreamRead.Free;    FileStream.Free;  end;end;

В этом коде выбирается файл с помощью диалогового окна, создаются стримы для чтения файла и производится цикл заполнения StringGrid данными из файла.

Пример заполнения StringGrid данными из файла с использованием OpenDialog:

procedure TForm1.Button1Click(Sender: TObject);var  OpenDialog1: TOpenDialog;begin  OpenDialog1 := TOpenDialog.Create(self);  OpenDialog1.Filter := 'Text files (*.txt)|*.txt';  OpenDialog1.Title := 'Select a text file';  OpenDialog1.Execute;end;

Этот пример открывает диалоговое окно для выбора текстового файла. Затем можно использовать код, приведенный выше, для заполнения StringGrid данными из выбранного файла.