оболочка к write(), fp Опции

[compiler]

Добрый день!
Меня интересует следующий вопрос, можна ли создать оболочку к write? Допустим я хочу писать в определенное место на терменале, но все это спрятатьв отдельную процедуру... Честно говоря, учитывая то что я знаю о write, я сомневаюсь что это реализуемо, но, может...

заранее благодарен.

[volvo]

uses sysutils, crt;

procedure write(px, py: integer;
          s: string; arrX: array of const);
var x, y: integer;
begin
  x := wherex(); y := wherey();
  gotoxy(px, py);
  system.write(format(s, arrX));
  gotoxy(x, y);
end;

var
  i: integer;
  s: string;
  f: double;

begin
  clrscr;
  s := 'test'; f := 11.45; i := 20;

  write(10, 10, '%s', [s]);
  write(15, 15, '%d %5.2f', [i, f]);

end.

Можешь не переопределять Write, а дать другое имя процедуре...

[compiler]

Спасибо, то что надо!

system.write(format(s, arrX));

o_O, а можна комментарий?

1)обращение к system. надо для того что бы обратиться к нужной write?
2)что делает format?



Сообщение отредактировано: compiler - 6.01.2008 0:07