[vendetta]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
     modes:array[0..255] of TDevmode;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

begin
procedure TForml.ButtonlClick(Sender: TObject);
var
i: Integer;
begin
ListBox1.Items.Clear;
i := 0;
while EnumDisplaySettings(nil, i, Modes[i]) do
\
begin
ListBoxl.Items.Add(IntToStr(Modes[i].dmBitsPerPel)+' '+
IntToStr(Modes[i].dmPelsWidth)+' '+
IntToStr(Modes[i].dmPelsHeight)+ ' '+
IntToStr(Modes[i].dmDisplayFrequency));
Inc(i);
end;
end;
end.

Админ: Пользуемся тегами при оформлении кода!

выдаёт ошибки

Код:

[Error] Unit1.pas(31): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(31): ';' expected but '.' found
[Error] Unit1.pas(35): Undeclared identifier: 'ListBox1'
[Error] Unit1.pas(35): Missing operator or semicolon
[Error] Unit1.pas(40): Undeclared identifier: 'ListBoxl'
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(40): ')' expected but identifier 'dmBitsPerPel' found
[Error] Unit1.pas(40): 'END' expected but ')' found
[Warning] Unit1.pas(46): Text after final 'END.' - ignored by compiler
[Error] Unit1.pas(14): Unsatisfied forward or external declaration: 'TForm1.Button1Click'
[Hint] Unit1.pas(17): Private symbol 'modes' declared but never used
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

я новичёк только третий денб занимаюсь delphi