Подскажите пожалуйста!

@LexTracer · Регистрация: 01.10.2009

Студворк — интернет-сервис помощи студентам

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

@TAVulator · 14.10.2009, 18:47

LexTracer, ты лучше полный кусок кода покажи, а то не понятно.

@LexTracer · 14.10.2009, 18:51 **[ТС]**

Вот:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure TfmNewMaze.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if bbSave.Enabled then
if MessageDlg('Ñîõðàíèòü ëàáèðèíò?',
mtConfirmation,[mbYes,mbNo],0) = mrYes
then
begin
bbSave.Click;
Close;
end;
end;
 
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;

@TAVulator · 14.10.2009, 18:55

у тебя IF для этого ELSE нет

@LexTracer · 14.10.2009, 18:58 **[ТС]**

а куда его воткнуть можно ума не приложу.это короче сейвдиалог, если нажать сохранить при включённой проге ,а потом отмена,то он не выходит из сейвдиалога, а это уже ошибка

@АНК · 15.10.2009, 16:49

Сообщение от LexTracer

а куда его воткнуть можно ума не приложу.это короче сейвдиалог, если нажать сохранить при включённой проге ,а потом отмена,то он не выходит из сейвдиалога, а это уже ошибка

Я понял так, что при отказе заменить существующий файл процедура сохранения должна прекратиться. Если да, то

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure TForm1.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 begin
        if MessageDlg('Такой файл уже существует!'+
          #13 + 'Сохранить поверх его?',
          mtConfirmation, [mbYes ,mbNo] ,0) = mrNo
        then break;
      end 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, ' ')
 
      CloseFile(F) ;
    end;
 
    bbSave.Enabled := False;
    Caption := ' Лабиринт - [ ' + ExtractFileName(sd_1.FileName) + ']';
end;

@LexTracer · 15.10.2009, 17:51 **[ТС]**

Сообщение от АНК

Я понял так, что при отказе заменить существующий файл процедура сохранения должна прекратиться. Если да, то

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure TForm1.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 begin
        if MessageDlg('Такой файл уже существует!'+
          #13 + 'Сохранить поверх его?',
          mtConfirmation, [mbYes ,mbNo] ,0) = mrNo
        then break;
      end 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, ' ')
 
      CloseFile(F) ;
    end;
 
    bbSave.Enabled := False;
    Caption := ' Лабиринт - [ ' + ExtractFileName(sd_1.FileName) + ']';
end;

БОЛЬШОЕ Спасибо за помощь! Но там ещё дофига косяков, я короче лучше исходничок переделаю, да и всё.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@LexTracer 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 8

	Подскажите пожалуйста! 14.10.2009, 18:46. Показов 2057. Ответов 6 Метки нет (Все метки) Как по-другому записать 'end else break' ???ругается ,на else.ПОМОГИТЕ ПЛИЗ!!! 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	14.10.2009, 18:47
	LexTracer, ты лучше полный кусок кода покажи, а то не понятно. 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	14.10.2009, 18:55
	у тебя IF для этого ELSE нет 0

@LexTracer 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 8
	14.10.2009, 18:58 [ТС]
	а куда его воткнуть можно ума не приложу.это короче сейвдиалог, если нажать сохранить при включённой проге ,а потом отмена,то он не выходит из сейвдиалога, а это уже ошибка 0