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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выход из процедуры 
:(
    Опции темы
Victor
Дата 7.2.2004, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Выдти из проги - halt;
из цикла - exit;(Так?)
А как из процедуры выдти??
PM MAIL   Вверх
Victor
Дата 7.2.2004, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
И как мне запретить кнопки в правом верзнем углу все кроме закрытия окна?
PM MAIL   Вверх
NiJazz
Дата 7.2.2004, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23
exit - выход из процедуры
break - прерывание цикла
Из проги можно так: Application.Terminate (Delphi)
PM MAIL   Вверх
Victor
Дата 7.2.2004, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
[Error] TE.pas(164): Statement expected, but expression of type 'TMenuItem' found
или
[Error] TE.pas(161): Constant expression expected
=(
в разных местав exit; ставил и 2 ерора.
это в case..of..end;
и внутри и снаружи ставил

PM MAIL   Вверх
<Spawn>
Дата 7.2.2004, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64
Victor покажи код


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Victor
Дата 7.2.2004, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

procedure TForm1.OpenFileClick(Sender: TObject);
begin
if Richedit1.Modified then
case
 MessageDlg('Файл '+ ExtractFileName(FileName)+ ' изменен!' + #10#13 + 'Сохранить файл?' , mtConfirmation, [mbYes, mbNo, mbcancel],0)
of

 mrYes:
  begin
   if savedialog1.Execute then
   begin
    FileName:=Savedialog1.FileName;
    Richedit1.Lines.SaveToFile(FileName);
    Richedit1.Lines.Clear;
   end;
   if Opendialog1.Execute then
   begin
   FileName:=Opendialog1.FileName;
   Richedit1.Lines.LoadFromFile(FileName);
   Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
   if Richedit1.Modified then Richedit1.Modified:=false;
   end;
  end;

 MrNo:
  if Opendialog1.Execute then
  begin
   FileName:=Opendialog1.FileName;
   Richedit1.Lines.LoadFromFile(FileName);
   Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
   if Richedit1.Modified then Richedit1.Modified:=false; //Ээ вроде после открытия ричедит изменяеться я ставлю что типа не изменился но дальше..
//EXIT
  end;
 end;
if Richedit1.Modified=false then //если он не изменился идет дальше процедура ну вообщем все запутанно
  if Opendialog1.Execute then
  begin
   FileName:=Opendialog1.FileName;
   Richedit1.Lines.LoadFromFile(FileName);
   Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
   if Richedit1.Modified then Richedit1.Modified:=false;
  end;
end;
PM MAIL   Вверх
Victor
Дата 7.2.2004, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
и ещё какой модуль нужен для типа SystemTextFile?
у меня в книге написано:
Код

procedure Tform1.btnPrinterClick(Sender: TObject);
var Line :SystemTextFile;
     i       :Integer;
begin
//Простейший способ печате
if PrintDialog1.Execute then
begin
 AssignPrn(Line);
 Rewrite(Line);
 Printer.Canvas.Font:=Memo1.Font;
 For i:=0 to Memo1.Lines.Count-1 do WriteLn(Line, Memo1.Lines[i]);
 end;
end;
PM MAIL   Вверх
StayAtHome
Дата 7.2.2004, 23:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


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

Репутация: 1
Всего: 16
YVictor
1/ Попробуй так:
Код
procedure TForm1.OpenFileClick(Sender: TObject);
begin
if Richedit1.Modified then
case
MessageDlg('Файл '+ ExtractFileName(FileName)+ ' изменен!' + #10#13 + 'Сохранить файл?' ,
           mtConfirmation, [mbYes, mbNo, mbcancel],0) of
mrYes:
if savedialog1.Execute then
  begin
  FileName:=Savedialog1.FileName;
  Richedit1.Lines.SaveToFile(FileName);
  Richedit1.Lines.Clear;
  end;
mrCancel:
 Exit;
end; {case}

if Opendialog1.Execute then
 begin
 FileName:=Opendialog1.FileName;
 Richedit1.Lines.LoadFromFile(FileName);
 Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
 if Richedit1.Modified then Richedit1.Modified:=false; //Ээ вроде после открытия ричедит изменяеться я ставлю что типа не изменился но дальше..
 end;
end;
end;

2. Скорее всего в книге опечатка. Имелось в виду
Код
System.TextFile

System -- название модуля.
PM MAIL WWW ICQ YIM   Вверх
Victor
Дата 8.2.2004, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
[Error] TE.pas(145): Statement expected, but expression of type 'TMenuItem' found
=((
Может лучше
Код

procedure TForm1.OpenFileClick(Sender: TObject);
begin
if Richedit1.Modified=false then //если он не изменился идет дальше процедура ну вообщем все запутанно
 if Opendialog1.Execute then
 begin
  FileName:=Opendialog1.FileName;
  Richedit1.Lines.LoadFromFile(FileName);
  Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
  if Richedit1.Modified then Richedit1.Modified:=false;
 end;
if Richedit1.Modified then
case
MessageDlg('Файл '+ ExtractFileName(FileName)+ ' изменен!' + #10#13 + 'Сохранить файл?' , mtConfirmation, [mbYes, mbNo, mbcancel],0)
of

mrYes:
 begin
  if savedialog1.Execute then
  begin
   FileName:=Savedialog1.FileName;
   Richedit1.Lines.SaveToFile(FileName);
   Richedit1.Lines.Clear;
  end;
  if Opendialog1.Execute then
  begin
  FileName:=Opendialog1.FileName;
  Richedit1.Lines.LoadFromFile(FileName);
  Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
  if Richedit1.Modified then Richedit1.Modified:=false;
  end;
 end;

MrNo:
 if Opendialog1.Execute then
 begin
  FileName:=Opendialog1.FileName;
  Richedit1.Lines.LoadFromFile(FileName);
  Form1.Caption:='TextEditor - ' + ExtractFileName(FileName);
  if Richedit1.Modified then Richedit1.Modified:=false; //Ээ вроде после открытия ричедит изменяеться я ставлю что типа не изменился но дальше..
//EXIT
 end;
end;

end;


Просто выше поставить проверку
А насчет system.textfile вроде работает
PM MAIL   Вверх
StayAtHome
Дата 8.2.2004, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


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

Репутация: 1
Всего: 16
D общем тоже можно. Но у тебя блок if Opendialog1.Execute then... Повторяется ТРИ раза! И не стоит проверять два раз f Richedit1.Modified. Он либо False, либо True, третьего не дано. smile.gif Наверно стоит упростить код, что я и попробовал сделать. Просто сейчас на компе нет Делфи, писал в текстовом редкторе. Может очепятку и сделал. А вообще, хозяин -- барин. smile.gif
PM MAIL WWW ICQ YIM   Вверх
Victor
Дата 8.2.2004, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Да ну и фиг с ним главно чтоб работало ;)
а как мне запретить использование двух кнопок в верхнем правом углу ну все кроме закрытия??
PM MAIL   Вверх
-=::BlackCat::=-
Дата 8.2.2004, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1456
Регистрация: 12.7.2003
Где: растёт анаша?

Репутация: 1
Всего: 6
инспектор обектов -> Form1 -> BorderIcons -> biMinimize и biMaximize => false


--------------------
-=::BlackCat::=-user posted image

такой дуратцкий аватар потому как мой 100х100, а такие подгрузить нелзя, движок форума чо сам не может его переделать??  гррр, админ, форум косячит  
PM MAIL ICQ   Вверх
StayAtHome
Дата 8.2.2004, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


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

Репутация: 1
Всего: 16
У формы есть свойства BorderIcons и BorderStyle -- поиграйся с ними.
А код, ИМХО, надо писать аккуратнее -- чем меньше кода, тем меньше возможнстей допустить ошибку. Без обид?
PM MAIL WWW ICQ YIM   Вверх
Victor
Дата 8.2.2004, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
StayAtHome Я полностью согласен, но иногда раздражает попровлять все, у меня щас не супер пупер проект, я только книгу читаю и код маленький 1, 2 юнита, но все же построяюсь писать по аккуратнее smile.gif
2all Thx,
Но, все таки почему exit; не работает ??
PM MAIL   Вверх
Medved
Дата 9.2.2004, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Цитата(Victor @ 8.2.2004, 00:06)
И как мне запретить кнопки в правом верзнем углу все кроме закрытия окна?

Модератор: Один топик - один вопрос!

Читайте правила форума!


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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