StringGrid (Загрузка из файла)

[Михаил_93]

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

Наглядно на скринах:
Как должно быть

Как загружается

Прикрепил проект (пытался загрузить через вложения, но макс.размер .rar 507.8 Кб. а мой проект весит больше)

Скачатьstringgrid 2.rar

[Аватар]

Проект не смотрел, но явно загрузка данных начинается с индекса 1 для строки и столбца. Попробуйте с нулевого индекса

[Михаил_93]

загрузка и так стоит с нулевого индекса:

procedure TMYStGrid.MyLoadFromFile( const sFileName: string);
var
f:textfile;
b:string;
val:TStr;
i,j:word;
begin

 AssignFile(f,sfilename);
 Reset(f);
 readln(f,b);
 val:=_Words(b,' ');
 ColCount:=strtoint(val[0]);
 RowCount:=strtoint(val[1]);
 i:=0;
 while not eof(f) do
 begin
   readln(f,b);
   val:=_Words(b,' ');
   for j:=0 to Length(val)-1 do
   Cells[j,i]:=val[j];
   inc(i);
 end;
 CloseFile(f);
end;

[Stilet]

_Words(b,' ');

Чего?? Слова выделить?

procedure TMYStGrid.MyLoadFromFile( const sFileName: string);
var
st,words:TStringList;
i:word;
begin
 st:=TStringList.Create;words:=TStringList.Create;
 st.LoadFromFile(sfilename);
 words.Delimiter:=' ';
 words.DelimitedText:=st.Text;
 ColCount:=strtoint(words[0]);
 RowCount:=strtoint(words[1]);
 i:=0;
 for i:=2 to st.count-1 do
 begin
  StringGrid.Rows[i].Delimiter:=' ';
  StringGrid.Rows[i].DelimitedText:=st[i];
 end;
 words.free;st.free; 
end;

И никаких морок с файлами.

[Михаил_93]

Сообщение от Stilet

Чего?? Слова выделить?

function _Words(s:string;dest:string = ','):TStr;
begin
 SetLength(Result,0);
 while pos(dest,s)>0 do
    begin
    SetLength(Result,Length(Result)+1);
    Result[Length(Result)-1]:=copy(s,1,pos(dest,s)-1);
    delete(s,1,pos(dest,s));
    end;
 SetLength(Result,Length(Result)+1);
 Result[Length(Result)-1]:=s;
end;

Тут ругается

begin
  MyStGrid.Rows[i].Delimiter:=' ';
  MyStGrid.Rows[i].DelimitedText:=st[i];
 end;

[Stilet]

function _Words(s:string;dest:string = ','):TStr;

ИМХО эта процедура лишняя. Костыльная.

MyStGrid какого типа? Должна быть TStringGrid

[Михаил_93]

Сообщение от Stilet

.

MyStGrid какого типа? Должна быть TStringGrid

TMYStGrid = class(TStringGrid)

Все равно ругается в этом месте:

 begin
  TStringGrid.Rows[i].Delimiter:=' ';
  TStringGrid.Rows[i].DelimitedText:=st[i];
 end;

[dcc32 Error] MyStGrid.pas(97): E2233 Property 'Rows' inaccessible here
[dcc32 Error] MyStGrid.pas(98): E2233 Property 'Rows' inaccessible here

[Stilet]

А-а-а... Ты свой класс-наследник сделал )
А зачем? Если не секрет.

[Аватар]

TStringGrid.Rows[i].Delimiter:=' ';

Чушь какая-то. Во-первых так вообще нельзя писать. Во-вторых, если уж наследник, то MyStGrid.Rows и так должен быть виден. Там 100% не наследник от TStringGrid

[Михаил_93]

Я не силен в Delphi, поэтому и прошу помощи