[NumLock]

Код:

StringGrid1.Cells[b,c]:=IntToStr(i) + r + IntToStr(a);

[poli-smen]

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

Блин, видимо вы от меня так просто не отвяжетесь. Теперь там где:

Код:

StringGrid1.Cells[b,c]:=IntToStr(i)+r(a);

там он теперь не добавляет))) но я просто не знаю синтаксис этой операции, то как она должна правильно быть написана.

Ошибка здесь: r(a).
r - это переменная типа Char. С переменными типа Char так нельзя обращаться.

[udachnik2]

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

Блин, видимо вы от меня так просто не отвяжетесь. Теперь там где:

Код:

StringGrid1.Cells[b,c]:=IntToStr(i)+r(a);

там он теперь не добавляет))) но я просто не знаю синтаксис этой операции, то как она должна правильно быть написана.
Точнее я искал, но вот такого случая я нигде не нашел, где с переменными надо работать.

Я попробовал исправить, но видимо команды CharToStr не существует

Код:

 StringGrid1.Cells[b,c]:=IntToStr(i)+ CharToStr(r)+ IntToStr(a);

[poli-smen]

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

Я попробовал исправить, но видимо команды CharToStr не существует

Код:

 StringGrid1.Cells[b,c]:=IntToStr(i)+ CharToStr(r)+ IntToStr(a);

Функция CharToStr не нужна, пиши просто имя переменной r.

[udachnik2]

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

Код:

StringGrid1.Cells[b,c]:=IntToStr(i) + r + IntToStr(a);

Этот код сработал. Спасибо.

[udachnik2]

Сообщение от poli-smen

Функция CharToStr не нужна, пиши просто имя переменной r.

И вам спасибо за помощь)

[udachnik2]

Извините друзья за такое назойничество, но я опять в проблемах.

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
 with printer do
  begin
    BeginDoc;
    font.name:='Times New Roman';
    Canvas.StretchDraw(PRect,Bitmap);
    EndDoc;
  end;
end;

Че то он не хочет компилиться, говорит типа команда printer ему не известна. Хотя я читал на форумах что она стандартно присоединена в uses.

[poli-smen]

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

Извините друзья за такое назойничество, но я опять в проблемах.

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
 with printer do
  begin
    BeginDoc;
    font.name:='Times New Roman';
    Canvas.StretchDraw(PRect,Bitmap);
    EndDoc;
  end;
end;

Че то он не хочет компилиться, говорит типа команда printer ему не известна. Хотя я читал на форумах что она стандартно присоединена в uses.

Нет, нестандартно, нужно подключать самому:

Код:

uses
  ..., Printers

[udachnik2]

Код:

Canvas.StretchDraw(StringGrid1);

судя по всему, он так не будет печатать, как ему нужно предаставить эту информацию из SringGrid?

[udachnik2]

Друзья товарищи, спасибо за ваше терпение. Я разобрался с печатью. Правда это печать с некоторыми ограничениями, но меня такое устраивает.
Ответ оказался проще чем я думал. У компонента TForm есть свой оператор печати. Он так и называется Form1.Print . У него есть свойство PrintScale в котором по вкусу нужно указать некоторые значения

poNone - Размер изображения не меняется. Размер может меняться в зависимости от настроек выбираемого принтера.
poPrintFit - Делается попытка напечатать форму размером видимом на экране.
poProportional - Увеличивает или уменьшает размер изображения подгоняя его под размер странницы созданный при установке принтера.