Var
cBold:String;
cBoldOff:String;
begin
cBold:=CHR(27)+CHR(71)
cBoldOff:=CHR(27)+CHR(72)
Write(cBold+' Esto va en negrita'+cBoldOff);
end;
En tu caso quedaría para color rojo:
Esc=1BH = 27d
r =72H=114d
En tu caso quedaría para color negro:
Esc=1BH = 27d
n =6EH=110d
cRojo:=Chr(27)+Chr(114).
cNegro:=Chr(27)+Chr(110).
Un Saludo.
Última edición por marcoszorrilla fecha: 10-11-2003 a las 15:08:05.
|