freepascal.ru

Код: Выделить всё

for i:=1 to 25 do Writeln;

Код: Выделить всё

procedure ClrScr;
var
  DestCoor: TCoord;
  numChars, x : DWord;
begin
  DestCoor.X := WindMinX - 1;
  DestCoor.Y := WindMinY - 1;
  numChars := (WindMaxX - WindMinX + 1);

  repeat
    FillConsoleOutputAttribute(GetStdHandle(STD_OUTPUT_HANDLE), TextAttr,
      numChars, DestCoor, x);
    FillConsoleOutputCharacter(GetStdHandle(STD_OUTPUT_HANDLE), #32,
      numChars, DestCoor, x);
    inc(DestCoor.Y);
  until DWord(DestCoor.Y)=WindMaxY;

  GotoXY(1, 1);
end; { proc. ClrScr }

Код: Выделить всё

Procedure ClrScr;
{
  Clear the current window, and set the cursor on 1,1
}
Var
  CY,i      : Longint;
  oldflush  : boolean;
  blank_with_attribute : TCharAttr;

Begin
  { See if color has changed }
  if OldTextAttr<>TextAttr then
   begin
     i:=TextAttr;
     TextAttr:=OldTextAttr;
     ttyColor(i);
   end;
  oldflush:=ttySetFlush(Flushing);
  if FullWin then
   begin
     if not OutputRedir then
      ttySendStr(#27'[H'#27'[2J');
     CurrX:=1;
     CurrY:=1;
     blank_with_attribute.ch   := ' ';
     blank_with_attribute.attr := TextAttr;
     FillWord(ConsoleBuf^,ScreenWidth*ScreenHeight,word(blank_with_attribute));
   end
  else
   begin
     For Cy:=WindMinY To WindMaxY Do
      DoEmptyLine(Cy,WindMinX,WindMaxX);
     GoToXY(1,1);
   end;
  ttySetFlush(oldflush);
End;

Код: Выделить всё

Write(StringOfChar(sLineBreak, 25));

Код: Выделить всё

const Clr = #10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10;
begin
  Writeln(Clr);
  Readln
end.

Код: Выделить всё

const Clr = #10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10;
begin
  Writeln(Clr);
  Бла - Бла - Бла - здесь моя тестовая учебная программа... :) 
end.

Код: Выделить всё

uses 
  crt;
const 
  ....;
type
  .....;
var
  ...;
begin
  clrscr;
  .......
end.

Код: Выделить всё

var s:string;
    ch:char;
begin
  writeln(sizeof(s));
  readln(ch);
  fillchar(s,sizeof(s),ch);
  writeln(s);
  readln
end.

Код: Выделить всё

  fillchar(s,sizeof(s),ch);
  setlength(s,255);

Код: Выделить всё

  setlength(s,sizeof(s));