[Prapor_62]

задача в следующем:
есть текстовый файл с цифровой матрицой.
у меня не получается сделать так,чтобы при нажатии на кнопку числа копировались в ячейки stringrid. Точнее первый ряд норм - а ост. - перед
первым числом ставится непонятный символ.Помогите разобраться!
вот текст программы:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var f:TextFile; // переменная текстового типа
   t,tt:Char; // файловая переменная
   t1,t2:String; // дополнительная переменная
   a,b:Integer; // а - столбцы таблицы
                // b - строки таблицы
begin
a:=0;
b:=0;
AssignFile(f,'F:\\12.txt');
reset(f);

While not EOF(f) do
begin
read(f,t);
If t=#13
  Then
    Begin
    t1:=t2;
    t:=tt;
    b:=b+1;
    a:=0;

    End;
If t=#32
  Then
    Begin
    a:=a+1;
    t1:=t2;
    End
   Else
    Begin
    t1:=t1+t;
    Form1.StringGrid1.Cells[a,b]:=t1;
    Form1.StringGrid1.ColCount:=a+1;
    Form1.StringGrid1.RowCount:=b+1;
    End;
end;
CloseFile(f);
End;

Admin: Пользуемся тегами!