Цитата:
begin
List := TStringList.Create;
List.LoadFromFile('text.txt');
StringGrid1.RowCount := List.Count;
for i:=0 to StringGrid1.RowCount-1 do
with StringGrid1.Rows[i] do
begin
Delimiter:=' ';
DelimitedText:=List[i];
end;
end;
|
StringGrid1.RowCount := List.Count; подсчитывает колличество рядов в файле и далее вывожу в SG? но вот количество колонок при таком методе считается заданным в свойствах SG (5 по умолчанию). Как сделать, чтобы колонки заполнялись до последнего значению в text.txt.
Ставил StringGrid1.ColCount := List.Count грузит очень много пустых ячеек после последнего значения.
Такой еще вопрос в файле text.txt есть шапка которая состоит из букв и цифр ряда параметров (I1, U1, R 1) некоторые из них соответственно слитно написаны некоторые через пробел и поскольку использую Delimiter, некоторые параметры делятся на 2 ячейки. Может есть другой алгоритм анализа txt файла ?Или придётся постоянно править шапку ?