Guest - Leandro - Postado Fevereiro 25, 2004 Denunciar Share Postado Fevereiro 25, 2004 Estou fazendo o curso de DELPHI aki no IPED...e estou tentando executar o seguinte código do menu de "Fonte".procedure TfrmTexto.FormClose(Sender: TObject; var Action: TCloseAction);begin if Memo1.Modified = true then begin if MessageDlg('Deseja Salvar As Alterações Feitas Em '+ Caption + '?', mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin frmPrincipal.Salvar.Click; Action := caFree; frmTexto := Nil; end else begin Action := caFree; frmTexto := Nil; end; end else begin Action := caFree; frmTexto := Nil; end;end;e esta dando erro na seguinte linha:mtConfirmation, (mbYes,mbNo), 0) = mrYes then beginexpected bu ',' foundalguém sabe me dizer o que é???Valeu Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Valew Postado Fevereiro 26, 2004 Denunciar Share Postado Fevereiro 26, 2004 Valeu pela atenção, mas achei meu erro...Maio grotesco...mas ainda sou iniciantemtConfirmation, (mbYes,mbNo), 0) = mrYes then begin-->nesta linha, coloquei () e é [] Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest - Leandro -
Estou fazendo o curso de DELPHI aki no IPED...
e estou tentando executar o seguinte código do menu de "Fonte".
procedure TfrmTexto.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Memo1.Modified = true then begin
if MessageDlg('Deseja Salvar As Alterações Feitas Em '+
Caption + '?',
mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin
frmPrincipal.Salvar.Click;
Action := caFree;
frmTexto := Nil;
end else
begin
Action := caFree;
frmTexto := Nil;
end;
end else
begin
Action := caFree;
frmTexto := Nil;
end;
end;
e esta dando erro na seguinte linha:
mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin
expected bu ',' found
alguém sabe me dizer o que é???
Valeu
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.