Rad Studio XE Console Application uses Sorunu

[Programmer]

Selamün Aleyküm Arkadaşlar;

Rad Studio XE sürümünde bir console application oluşturdum. Fakat uses crt, graph vb. dosyaları bulunmuyor. Acaba XE de işler mi değişti?

Teşekkürler!

[sabanakman]

13 yaşındaki Delphi 7 bile bunları çalıştırmıyor! Hatırladığım kadarıyla 8 ve 16 bit pascal derleyici kütüphaneleri 32 bit delphi ortamında kullanılmazlar pek.

[Programmer]

Peki ClrScr; gibi fonksiyon ve prosedürleri nasıl kullanacağız?

[SimaWB]

Örnek program:

Kod: Tümünü seç

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,  Windows;
var
  cs : TConsoleScreenBufferInfo;
  i : integer;
  Coords : TCoord;
begin
  try
    Writeln('DENEME 1');
    Writeln('DENEME 2');
    Writeln('DENEME 3');

    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), cs);
    Readln;

    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), cs);

    for i := 0 to cs.dwSize.y do
      Writeln;

    //Cursor'u sol üst köşeye taşı
    Coords.X := 0;
    Coords.Y := 0;
    SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), Coords);

    Writeln('Ekran silindi');

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Buradaki TConsoleControl sınıfına göz atabilirsiniz...