Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > програма не запускается

Автор: WOLF33 28.1.2011, 15:07

когда я хочу запустить пробный раз прогу в делбфе то у меня она не запускается а строка выделяется краснам цветом
вот:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   messageDlg('вы нажали на кнопку1 '+key,mtInformation,[mbOk],0); \\вот эта ваделяется
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   messageDlg('вы нажали на кнопку2 '+key,mtInformation,[mbOk],0);  \\и вот эта
end;

end.

че мне делать

Автор: Данкинг 28.1.2011, 15:50

Код


messageDlg('вы нажали на кнопку1 '+key

Что есть у тебя "key"?

Цитата(WOLF33 @ 28.1.2011, 15:07

)

че мне делать

Да.

Автор: WOLF33 28.1.2011, 16:14

а что ей присвоить можно

Автор: Snowy 28.1.2011, 16:56

Ничего.
Его нет.
Либо создай, либо убери нафиг.

Автор: WOLF33 28.1.2011, 17:23

а создать как

Автор: ~FoX~ 28.1.2011, 17:39

Код


var
  Key: string;

Автор: Данкинг 28.1.2011, 17:53

Цитата(WOLF33 @ 28.1.2011, 16:14)

а что ей присвоить можно

Можно присвоить всё, что тебе нужно.
smile

Кстати, со знаками пунктуации знаком? smile

Автор: WOLF33 28.1.2011, 18:19

все спс понял

Добавлено через 1 минуту и 42 секунды
новый вопрос
вот здесь в чем ошибка
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    moText: TMemo;
    mmMainMenu: TMainMenu;
    itFile: TMenuItem;
    itOpen: TMenuItem;
    itEdit: TMenuItem;
    odOpenDialog: TOpenDialog;
    procedure itOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.itOpenClick(Sender: TObject);

if odOpenDialog.Execute then \\вот эту красной выделяеt
begin
  motext.Lines.LoadFromFile(odOpenDialog.FileName);
end;

end.

Автор: Snowy 28.1.2011, 18:43

1. Используй кнопочку "Код", когда вставляешь код.
2. Когда выделяет красным, то внизу пишет ошибку, в которой как раз и написано, почему компилятору не нравится то, что ты понаписал.
В данном случае, ты эту строку воткнул раньше begin, а нужно было после него.

Автор: Данкинг 28.1.2011, 21:09

Я обычно пишу

Код


if not odOpenDialog.Execute then exit;

- так как-то логичнее.

Добавлено через 4 минуты и 3 секунды

Цитата(Данкинг @ 28.1.2011, 17:53

)

Кстати, со знаками пунктуации знаком?

Видимо, нет. Ну да ладно. smile

Автор: CodeMonkey 28.1.2011, 21:59

Цитата(WOLF33 @ 28.1.2011, 16:07

)

че мне делать

Взять в руки книжку.

Автор: Keeper89 28.1.2011, 22:28

Цитата(CodeMonkey @ 28.1.2011, 21:59

)

Взять в руки книжку.

И наверное, с Розенталя, начать, батенька smile

Цитата(WOLF33 @ 28.1.2011, 15:07

)

делбфе

Ну это ващее...