Здравствуйте! Есть программа для заполнения StringGrid из файла. Она заполняет два столбика StringGrid подстроками (количество столбиков указано цифрой 2), в файле подстроки в строках разделены пробелами. Как изменить программу так, чтобы она заполняла j столбиков? То есть чтоб j была переменная и цикл вывода в ячейки от нее зависел. Помогите, пожалуйста!
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TForm1.Button1Click(Sender : TObject);
var
L : TStringList;
I : Integer;
begin
L := TStringList.Create;
L.LoadFromFile('test.txt');
StringGrid1.RowСount := L.Count;
StringGrid1.ColCount := 2;
For I := 0 To L.Count-1 Do
Begin
StringGrid1.Cells[0,i] := Copy(L[i],1,Pos(' ',L[i])-1);
StringGrid1.Cells[1,i] := Copy(L[i],Pos(' ',L[i])+1,Length(L[i]));
End;
L.Free;
end;
|
08.06.2015, 03:09
Вывод текста из файла в StringGrid
Линейный вид
