help me!! about the margin

[ching_tsoi]

How can all the content be shown?
It's a text file which I read in~~

I can't make the exexution windows bigger!

here is the printscreen of my problem:
http://imageshack.us/photo/my-images/851/16508090.png/


Please help, thanks so much~

[Leledumbo]

Try using SetVideoMode from Video unit. Note that you shouldn't use Crt unit together with Video unit (Crt unit already manipulates the console).

[ching_tsoi]

sorry, I don't understand~
how to use SetVideoMode in my program?

here is my program:
program music_voting;
USES CRT;
procedure welcome;
var
  welcometext: text;
  line:string;
begin
   clrscr;
  assign(welcometext,'welcome.txt');
  reset(welcometext);
  while not eof(welcometext) do
  begin
    readln(welcometext,line);
    writeln(line)
  end;
  close(welcometext)
end;

begin
  welcome;
  readln
end.       

[ludob]

On windows you can do the following:

Code: [Select]

uses
  windows;
var
  dwSize:COORD;
begin
  dwSize.X:=100;
  dwSize.Y:=25;
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE),dwsize);
....


[Leledumbo]

sorry, I don't understand~
how to use SetVideoMode in my program?

Read the link I gave above, and all other links you required there. And as I've said, DO NOT use Crt unit. ClrScr could be replaced by ClearScreen from Video unit.

If you're not diligent enough to explore the link, here are the quick steps:

• Query the supported video modes using GetVideoModeCount and GetVideoModeData
• Find the supported mode which has largest size (check Col and Row of the returned TVideoMode)
• Take that mode and pass to SetVideoMode