Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> програма не запускается 
:(
    Опции темы
WOLF33
Дата 28.1.2011, 15:07 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 28.1.2011

Репутация: нет
Всего: нет



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

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.


че мне делать

Это сообщение отредактировал(а) Snowy - 28.1.2011, 15:47
PM MAIL   Вверх
Данкинг
Дата 28.1.2011, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Код

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

Что есть у тебя "key"?
Цитата(WOLF33 @  28.1.2011,  15:07 Найти цитируемый пост)
че мне делать 

Да.



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
WOLF33
Дата 28.1.2011, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 28.1.2011

Репутация: нет
Всего: нет



а что ей присвоить можно
PM MAIL   Вверх
Snowy
Дата 28.1.2011, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Ничего.
Его нет.
Либо создай, либо убери нафиг.
PM MAIL   Вверх
WOLF33
Дата 28.1.2011, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 28.1.2011

Репутация: нет
Всего: нет



а создать как
PM MAIL   Вверх
~FoX~
Дата 28.1.2011, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68



Код

var
  Key: string;



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 28.1.2011, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(WOLF33 @ 28.1.2011,  16:14)
а что ей присвоить можно

Можно присвоить всё, что тебе нужно. 
 smile 
Кстати, со знаками пунктуации знаком? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
WOLF33
Дата 28.1.2011, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 28.1.2011

Репутация: нет
Всего: нет



все спс понял

Добавлено через 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.
PM MAIL   Вверх
Snowy
Дата 28.1.2011, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



1. Используй кнопочку "Код", когда вставляешь код.
2. Когда выделяет красным, то внизу пишет ошибку, в которой как раз и написано, почему компилятору не нравится то, что ты понаписал.
В данном случае, ты эту строку воткнул раньше begin, а нужно было после него.
PM MAIL   Вверх
Данкинг
Дата 28.1.2011, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Я обычно пишу
Код

if not odOpenDialog.Execute then exit;

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

Добавлено через 4 минуты и 3 секунды
Цитата(Данкинг @  28.1.2011,  17:53 Найти цитируемый пост)
Кстати, со знаками пунктуации знаком?

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


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
CodeMonkey
Дата 28.1.2011, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89



Цитата(WOLF33 @  28.1.2011,  16:07 Найти цитируемый пост)
че мне делать


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



--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Keeper89
Дата 28.1.2011, 22:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(CodeMonkey @  28.1.2011,  21:59 Найти цитируемый пост)
Взять в руки книжку.

И наверное, с Розенталя, начать, батенька smile
Цитата(WOLF33 @  28.1.2011,  15:07 Найти цитируемый пост)
делбфе

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

Это сообщение отредактировал(а) Keeper89 - 28.1.2011, 22:28


--------------------
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1124 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.