отменить действие кнопки else

[m1zantrop]

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

Во-первых - а оно у тебя компилится вообще?

procedure TForm6.sButton1Click(Sender: TObject);
begin
   if sEdit1.Text='' then
      Application.MessageBox('Ïîëå îáÿçàòåëüíî äëÿ çàïîëíåíèÿ!', 'Âíèìàíèå!', MB_ICONINFORMATION or MB_OK);
   else
      exit;
   ts.Add(sEdit1.text);
   ts.Add(sEdit2.text);
   ts.Add('__________');
   begin
      sEdit9.Text:=sEdit1.Text;
   end;
end;

Во-вторых - зачем там begin .. end в конце процедуры?

В-третьих (опять же - просто отвлеченно) - не следует "орать" на пользователя (восклицательные знаки в мессагбоксе), даже если этот пользователь - школьник. Это раздражает всех и каждого. См. Google -> usability

это не крик а а оповещение того, что нужно заполнить поле, без него не будет продолжения

[Stilet]

Восклицательные знаки убери, сказали же - раздражает.

[m1zantrop]

поменяю ))

[m1zantrop]

а можно как нибудь переносить строки в мэссэджэ? а то длинная формочка вылазит

[ych_del]

var S: string;
begin
   S := 'Строка 1'#13#10'Строка 2';
   if (что-то там) then S := S + #13#10#13#10'Еще какой-то текст';
   Application.MessageBox(PChar(S), 'Заголовок', MB_OK or MB_ICONINFORMATION);
end;

[m1zantrop]

начал ругаться на else

[ych_del]

Телепаты в отпуску. Но если ты не менял вышеприведенных тобой код - внимательно смотри мой ответ на второй странице треда. Я не просто так спросил про то, как оно у тебя компилится.

[m1zantrop]

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

Телепаты в отпуску. Но если ты не менял вышеприведенных тобой код - внимательно смотри мой ответ на второй странице треда. Я не просто так спросил про то, как оно у тебя компилится.

афывыфвфывфывфы

procedure TForm6.sButton1Click(Sender: TObject);
var M: string;
begin
M := 'Óâàæàåìûé ïîëüçîâàòåëü, ïîëå îòâåä¸ííîå äëÿ íàçâàíèÿ òåñòà îáÿçàòåëüíî'#13#10'äëÿ çàïîëíåíèÿ, ýòî äåéñòâèå ïðîïóñòèòü íå âîçìîæíî.';
if sEdit1.Text='' then M := M;
Application.MessageBox(PChar(M), 'Îáðàùåíèå ïðîãðàììû', MB_OK or MB_ICONINFORMATION)
else
begin
ts.Add(sEdit1.text);
ts.Add(sEdit2.text);
ts.Add('__________');
sEdit9.Text:=sEdit1.Text;
sEdit1.Enabled:=false;
sButton1.Enabled:=false;
sButton2.Enabled:=true;
end;
end;

[ych_del]

procedure TForm6.sButton1Click(Sender: TObject);
var M: string;
begin
   M := 'Óâàæàåìûé ïîëüçîâàòåëü, ïîëå îòâåä¸ííîå äëÿ íàçâàíèÿ òåñòà îáÿçàòåëüíî'#13#10'äëÿ çàïîëíåíèÿ, ýòî äåéñòâèå ïðîïóñòèòü íå âîçìîæíî.';
   if sEdit1.Text='' then M := M; // Это зачем?
   Application.MessageBox(PChar(M), 'Îáðàùåíèå ïðîãðàììû', MB_OK or MB_ICONINFORMATION) // Где точка с запятой?!
   else begin
      ts.Add(sEdit1.text);
      ts.Add(sEdit2.text);
      ts.Add('__________');
      sEdit9.Text:=sEdit1.Text;
      sEdit1.Enabled:=false;
      sButton1.Enabled:=false;
      sButton2.Enabled:=true;
   end;
end;

Камрад, можно код обрамлять тэгом [code], а не [quote]? Читать неудобно.

[m1zantrop]

[Error] Unit6.pas(78): ';' not allowed before 'ELSE'
[Fatal Error] Project1.dpr(12): Could not compile used unit 'Unit6.pas'

var M: string;
begin
   M := 'gdf'#13#10'gfdgfd';
   if sEdit1.Text='' then
   Application.MessageBox(PChar(M), 'dsadas', MB_OK or MB_ICONINFORMATION);
   else begin
      ts.Add(sEdit1.text);
      ts.Add(sEdit2.text);
      ts.Add('__________');
      sEdit9.Text:=sEdit1.Text;
      sEdit1.Enabled:=false;
      sButton1.Enabled:=false;
      sButton2.Enabled:=true;
   end;
end;