проблемный StringGrid

[Dmitri446]

прошу помочь с этим чёртовым stringgrid
http://3.firepic.org/3/images/2014-0...zbut31p9sf.png
Не знаю откуда берутся два последних нуля в колонке "Сумм. за неделю"
хотя вроде должно всё работать.
Один раз как то смог убрать эти нуля но забыл сохранить прогу
Делал в Delphi

var
  Form1: TForm1;
   f: TextFile;
text:string;
Fm,S:string;
ARow, ACol, sm, sn,i,j, n:integer;
sum:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);



begin
ARow:=1;
while arow<stringgrid1.rowcount do
begin
  if stringgrid1.Cells[1,ARow]='' then
  begin
    stringgrid1.rowCount:=ARow;
    break;
  end;
  arow:=arow-1;
end;
begin

StringGrid1.Cells[2,0]:='Расход за день';

StringGrid1.Cells[5,0]:='СР';
Stringgrid1.cells[5,1] := inttostr( random(100) );
Stringgrid1.cells[5,2] := inttostr( random(100) );
Stringgrid1.cells[5,3] := inttostr( random(100) );
Stringgrid1.cells[5,4] := inttostr( random(100) );
Stringgrid1.cells[5,5] := inttostr( random(100) );
Stringgrid1.cells[5,6] := inttostr( random(100) );
Stringgrid1.cells[5,7] := inttostr( random(100) );
Stringgrid1.cells[5,8] := inttostr( random(100) );
Stringgrid1.cells[5,9] := inttostr( random(100) );
Stringgrid1.cells[5,10] := inttostr( random(100) );
StringGrid1.Cells[6,0]:='ЧТ';
Stringgrid1.cells[6,1] := inttostr( random(100) );
Stringgrid1.cells[6,2] := inttostr( random(100) );
Stringgrid1.cells[6,3] := inttostr( random(100) );
Stringgrid1.cells[6,4] := inttostr( random(100) );
Stringgrid1.cells[6,5] := inttostr( random(100) );
Stringgrid1.cells[6,6] := inttostr( random(100) );
Stringgrid1.cells[6,7] := inttostr( random(100) );
Stringgrid1.cells[6,8] := inttostr( random(100) );
Stringgrid1.cells[6,9] := inttostr( random(100) );
Stringgrid1.cells[6,10] := inttostr( random(100) );
StringGrid1.Cells[7,0]:='ПТ';
Stringgrid1.cells[7,1] := inttostr( random(100) );
Stringgrid1.cells[7,2] := inttostr( random(100) );
Stringgrid1.cells[7,3] := inttostr( random(100) );
Stringgrid1.cells[7,4] := inttostr( random(100) );
Stringgrid1.cells[7,5] := inttostr( random(100) );
Stringgrid1.cells[7,6] := inttostr( random(100) );
Stringgrid1.cells[7,7] := inttostr( random(100) );
Stringgrid1.cells[7,8] := inttostr( random(100) );
Stringgrid1.cells[7,9] := inttostr( random(100) );
Stringgrid1.cells[7,10] := inttostr( random(100) );
StringGrid1.Cells[8,0]:='СБ';
Stringgrid1.cells[8,1] := inttostr( random(100) );
Stringgrid1.cells[8,2] := inttostr( random(100) );
Stringgrid1.cells[8,3] := inttostr( random(100) );
Stringgrid1.cells[8,4] := inttostr( random(100) );
Stringgrid1.cells[8,5] := inttostr( random(100) );
Stringgrid1.cells[8,6] := inttostr( random(100) );
Stringgrid1.cells[8,7] := inttostr( random(100) );
Stringgrid1.cells[8,8] := inttostr( random(100) );
Stringgrid1.cells[8,9] := inttostr( random(100) );
Stringgrid1.cells[8,10] := inttostr( random(100) );
StringGrid1.Cells[9,0]:='*****';
StringGrid1.Cells[10,0]:='Расход за неделю';
StringGrid1.Cells[11,0]:='Сумм. за  неделю';
//Stringgrid1.cells[i,j] := inttostr( random(100) );
AssignFile(f,'D:\Ткань.txt');
Reset(F);
n:=0;
while not(Eof(f)) do
begin
Readln(f,Fm);
Readln(f,S);
with StringGrid1 do
begin
Cells[0,RowCount-1]:=Fm;
Cells[1,RowCount-1]:=S;
RowCount:=RowCount+1;
end;
end;
CloseFile(f);
StringGrid1.RowCount:=StringGrid1.RowCount-1;
for ARow:=1 to stringgrid1.rowcount-1 do

begin
  n:=0;sm:=0;
  for ACol:=3 to 8 do
  begin
     n:=n+strtointdef( stringgrid1.cells[acol,arow], 0);

  end;

  sm := n * strtointdef( stringgrid1.cells[1,arow], 0);
  stringgrid1.cells[10,Arow] := inttostr(N);
  stringgrid1.cells[11,ARow] := inttostr(sm);

end;
end;

end;


end.

код для форума подрезал чутка вот
ничего важного не удалил только парочку Stringgrid1.cells[i,j] := inttostr( random(100) );
если нужно сама программа то вот

[vovk]

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

А в целом... я фигею как ЭТО у вас создать вышло))))

[Dmitri446]

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

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

А в целом... я фигею как ЭТО у вас создать вышло))))

Типо коряво написано?Я это знаюЕсли можешь подскажи как сделать грамотней

из текстового файла у меня берутся только первые два столбца, и там нету пробелов

[vovk]

И всёже проблема в файле, сотрите его и создайте с помощью простого текстового редактора,(не ворда) по поводу кода, зачем такое заполнение ? циклы же есть..
Первый цикл, это вообще, что вы там хотели сделать?
Хотите подробнее? напишите комменты к своим действиям(что вы хотели сделать) а их я разберу.

[Dmitri446]

текстовый файл создан в блокноте(txt)

[vovk]

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

текстовый файл создан в блокноте(txt)

добавтье во вложение тестовый файл пож

[Dmitri446]

почему через циклы не написал? потому что я пока лох во всём этом))))боюсь ещё больше накосячить

[vovk]

Для этого читают книги, и начинают помаленьку, чтобы косяки ловить сразу, и понимать что происходит...
Вы сообщения ещё раз прочитаете, или мне снова писать?

PS файл скачал, теперь к моей 99% уверенности добавился ещё 1%

[Dmitri446]

так я же добавил txt файл

[vovk]

Так уберите наконец пробелы, или после считывания убирайте их программно...
я же тоже написал, прочтите ещё раз сообщения, новой информации нет))

ЗЫ Символы табуляции тоже считаются, уберите всё кроме числа (ну это уже на всякий)