Цитата:
|
Сообщение от angvelem
Вы считываете в TempStr :
Код:
10000 10000 10000 10000 10000 10000 10000 10000 10000 10000 10000 10000 10000
и так целиком, не разбирая на значения, ложите в одну ячейку. |
попытался решить проблему так:
Код:
var k,s,n:TStringList;i,j:integer;
begin
s:=TStringList.Create;k:=TStringList.Create;
k.LoadFromFile('Valuesmatrix.txt');
s.Delimiter:=' ';
n.Delimiter:='#13#10';
GrafVal.Rows[i].Delimiter:=s.Delimiter;
GrafVal.RowCount:=12;
GrafVal.ColCount:=12;
for i:=1 to k.Count-1 do
for j:=1 to k.Count-1 do
begin
s.DelimitedText:=k[i];
GrafVal.Rows[i].DelimitedText:=s.DelimitedText;
GrafVal.Cols[j].DelimitedText:=n.DelimitedText;
end;
s.free;k.Free;n.Free;
end;
не проходит разделитель '#13#10', подскажите как обозначить перенос строки в таком коде или может я где то ещё напутал ?