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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Ребята,помогите пожалуйста!!! Ошибка при запуске приложения 
:(
    Опции темы
LexTracer
Дата 15.10.2009, 14:18 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Как по-другому записать 'end else break' ???ругается ,на else.ПОМОГИТЕ ПЛИЗ!!!
ВОТ КОД ПРОЦЕДУРЫ:

Код

procedure TfmNewMaze.bbSaveClick(Sender: TObject);
var okSave: boolean;
i, j: integer;
F: TextFile;
begin
sd_1.InitialDir :=ExtractFilePath (Application.ExeName);
sd_1.FileName := copy (Caption,pos  ('[', Caption)+1,
pos (']', Caption)-pos ('[',Caption)-1);
okSave := False;
while not okSave do
if sd_1.Execute then
begin
if FileExists (sd_1.FileName)
then okSave := (MessageDlg('Такой файл уже существует!'+
#13 + 'Сохранить поверх его?',
mtConfirmation, [mbYes ,mbNo] ,0) = mryes)
else okSave := True;
if pos('.maz', sd_1.FileName) = 0
then AssignFile(F,sd_1.FileName + '.maz')
else AssignFile(F,sd_1.FileName);
Rewrite(F);
Writeln(F,cobWallColor.Selected);
Writeln(F,cobEnterColor.Selected);
Writeln(F,cobExitColor.Selected);
for i := 1 to sdSizeV.Value do
for j := 1 to sdSizeH.Value do
if sgMazeStr.Cells [j-1,i-1] = ''
then Write(F, 'O')
else Write(F,sgMazeStr.Cells [j-1 ,i-1]);
WriteLn(F, ' ')
end;
CloseFile(F) ;
bbSave.Enabled := False;
Caption := ' Лабиринт - [ ' +
ExtractFileName(sd_1.FileName) + ']';
end else break;
end;


Это сообщение отредактировал(а) Alexeis - 15.10.2009, 14:33
PM MAIL   Вверх
a_n_d_y
Дата 15.10.2009, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
тег [code] отменили?
PM MAIL ICQ Skype MSN   Вверх
LexTracer
Дата 15.10.2009, 14:28 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(a_n_d_y @ 15.10.2009,  14:26)
тег [code] отменили?

времени мало
PM MAIL   Вверх
a_n_d_y
Дата 15.10.2009, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
нет времени потратить полминуты на взятие кода в тег?
в таком виде это невозможно читать...
PM MAIL ICQ Skype MSN   Вверх
Beltar
Дата 15.10.2009, 15:29 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 7
Посмотри как оформлены исходники в VCL. Я, лично, вообще не могу читать код у которого begin и end точно не выровнены.

Я отформатировав по своим правилам получил примрно вот что (else д/б строго под then, но оно подвинулось):

Код

sd_1.InitialDir :=ExtractFilePath (Application.ExeName);
sd_1.FileName := copy (Caption,pos  ('[', Caption)+1,
pos (']', Caption)-pos ('[',Caption)-1);
okSave := False;
while not okSave do
  if sd_1.Execute then
  begin
  if FileExists (sd_1.FileName) then okSave := (MessageDlg('Такой файл уже существует!'+
    #13 + 'Сохранить поверх его?', mtConfirmation, [mbYes ,mbNo] ,0) = mryes)
                                               else okSave := True;
  if pos('.maz', sd_1.FileName) = 0 then AssignFile(F,sd_1.FileName + '.maz')
                                                      else AssignFile(F,sd_1.FileName);
  Rewrite(F);
  Writeln(F,cobWallColor.Selected);
  Writeln(F,cobEnterColor.Selected);
  Writeln(F,cobExitColor.Selected);
  for i := 1 to sdSizeV.Value do
    for j := 1 to sdSizeH.Value do
      if sgMazeStr.Cells [j-1,i-1] = ''  then Write(F, 'O')
                                                      else Write(F,sgMazeStr.Cells [j-1 ,i-1]);
  WriteLn(F, ' ')
  end;
CloseFile(F) ;
bbSave.Enabled := False;
Caption := ' Лабиринт - [ ' +
ExtractFileName(sd_1.FileName) + ']';
  end else break;


Внимание вопрос, что ты хочешь делать Break'ом? Цикл уже давно закончился. Может тебе последнюю строчку перед CloseFile(F) поставить и один end убрать?

Это сообщение отредактировал(а) Beltar - 15.10.2009, 15:31


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.
PM MAIL   Вверх
CodeMonkey
Дата 15.10.2009, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 38
Всего: 89
Цитата(LexTracer @  15.10.2009,  14:28 Найти цитируемый пост)
времени мало 

Если у вас нет времени, чтобы нормально сформулировать вопрос, то у нас тем более нет времени на него ответить.

P.S. Нашлись же люди, которым не лень копаться в чужом [вырезано] smile


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


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Модератор: Название темы не отражает ее суть, а язык описан в учебиниках!

Ознакомьтесь с правилами форума!:

http://forum.vingrad.ru/index.php?showtopic=96391

Это сообщение отредактировал(а) bems - 15.10.2009, 16:17


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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