Ayuda por favor...

[ContraVeneno]

Empezado por ContraVeneno

... o de plano tu profe es muy malo o no se que pensar...

Empezado por BuRtOn

...mire como mi profesor me dio la estructura del if:

Código Delphi [-]
If (condicion) then     proceso1; Else proceso2;

...mi maestro no coloco end al final del if y eso no lo sabia

por eso decía que tu profe no era tan bueno... en fin, que pena que hayas tomado a mal mi mensaje, esa no era mi intensión. Solo expresaba mi opinión y mi sorpresa al ver que un simple "If" ocasionaba problemas, pero ahora veo que la culpa la a tenido tu profe al no explicarte bien la sintaxis.

En fin, en un libro es muy difícil que se equivoquen (aunque no imposible).

O incluso otra mucho más fácil, presionando F1 en delphi, seguro encontrarás toda la explicación de todo relacionado con delphi, ayudas, explicaciones y hasta ejemplos de como utilizar los comandos, eso, seguro te ayuda.


P.D. Por cierto, que sea "If (condición) then..." o "If condición then..." no tiene la menor importancia, es decir, si viene con paréntesis o no, no te afecta en nada al ser una condición sencilla, solo afectan si evalúas varias condiciones a la vez...

2da P.D.: Gracias Caral

[BuRtOn]

Gracias amigos por ayudar que pudiera entender lo de los condicionales if y el resto de cositas, que pena si los ofendi con mis comentarios, recivi la sancion, pero es que en realidad estaba estrezado y aparte de eso , me tocaba responder por ese trabajo, miren como me quedo el programa, ha contraveneno aplique todo lo que me habias dicho....mira utilizando el if y el RadioBotton...

Código Delphi [-]
unit ufrquinto;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
type
  Tfrmquinto = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Image1: TImage;
    StaticText7: TStaticText;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmquinto: Tfrmquinto;
  resultado : real;
implementation
{$R *.dfm}
procedure Tfrmquinto.RadioButton1Click(Sender: TObject);
begin
try
If RadioButton1.Checked = True then
resultado := StrToFloat(Edit1.Text)+ StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton2Click(Sender: TObject);
begin
try
If RadioButton2.Checked = True then
resultado := StrToFloat(Edit1.Text)- StrToFloat(Edit2.Text);
except
MessageDlg('Error digita datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton3Click(Sender: TObject);
begin
try
If RadioButton3.Checked = True then
resultado := StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton4Click(Sender: TObject);
begin
 
try
If RadioButton4.Checked = True then
resultado := StrToFloat(Edit1.Text)/ StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.BitBtn1Click(Sender: TObject);
begin
Label1.caption:=FloatToStr(resultado);
end;
procedure Tfrmquinto.Edit2Change(Sender: TObject);
begin
try
  if StrToFloat(Edit2.Text) = 0 then
  ShowMessage('digita otro numero diferente a 0');
except
  MessageDlg('digita otro numero me que no sea 0',mtError,[mbok],0);
end;
end;
  end.

ya voy aprendiendo...creamen que han sido de gran ayuda....y eso que lo dificil fue que empece desde 0, y ustedes me han ayudado a crecer en delphi....

[Robert01]

Hola

Ese tipo de reacciones intempestivas que tuviste no te van a ayudar, debes modificarlas, pensar bien lo que vas a decir o escribir.

A mi, por reaccionar sin pensar, más de una vez me han echado de algún trabajo.

Saludos y mucha suerte

[BuRtOn]

Saludos amigos, miren lo que pasa es que me dejaron un programa y es un editor de texto, el programa contiene readibuttons , estatic text, memos, y es igual a lo que hacemos aqui cuando enviamos un mensaje, que tiene la opcion de negrita , cursiva, subrayado, tamaño de letra, tipo de letra, y un campo donde editamos nuestro texto, pero no tengo ni ideaaaa, como hacen para importar las fuentes de las letras, y no solo eso, no tengo ni idea como hacer para que el texto herede las caracteristicas que yo le doy, y lo unico que me dijo un profesor, fue que mirara el richedit, algo asi, enserio que es algo recomplicado para mi, por que no hemos visto ni los ciclos repetitivos, miren el codigo que me dio la profesora fue este, pero no funciona y que teniamos que hacer que funcione, solicito que me ayuden, no a hacer el trabajo, pero si que me digan como hago para heredar el tipo de letra y tamaño etc, y para importar los tipos de letras:

Código Delphi [-]
unit ufrmEditor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;
type
  TfrmEditor = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    N1: TMenuItem;
    Salir1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Salir1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmEditor: TfrmEditor;
implementation
uses Math;
{$R *.dfm}
procedure TfrmEditor.FormActivate(Sender: TObject);
begin
  ListBox1.Items := Screen.Fonts;  
end;
procedure TfrmEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If MessageDlg('¿Realmente desea salir?', mtInformation,[mbYes,mbNo],0)=mrYes then
    Action:=caFree
  else
    Action:=caNone;
end;
procedure TfrmEditor.Salir1Click(Sender: TObject);
begin
  Close;
end;
procedure TfrmEditor.Abrir1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TfrmEditor.Guardar1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end.

esto es todo, por favor es urgente amigos, se supone que es para mañana, pero no es justo, me lo dejo hoy, y no nos dice ni pio, ni pistas, espero que me colaboren..

[ContraVeneno]

Empezado por BuRtOn

esto es todo, por favor es urgente amigos, se supone que es para mañana, pero no es justo, me lo dejo hoy, y no nos dice ni pio, ni pistas, espero que me colaboren..

A que caray Burton... revisa este enlace...

P.D. Eso que te dejaron de tarea super urgente, ya se ha hecho miles y miles de veces, revisa la carpeta de demos o ejemplos de delphi, ahí ya viene uno hecho, funcionando y sin errores.

[BuRtOn]

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte, por que se trata que yo lo haga a como de lugar, y me esforce mucho e hice mi propio programita de editor de texto, me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina , eso si me toco leer como nunca, y ahi aprendi mucho, y pude analisar cada parte miren como me quedo el programita:

Código Delphi [-]
unit ufrmeditor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls;
type
  Tfrmeditor = class(TForm)
    mnuPrincipal: TMainMenu;
    Archivo1: TMenuItem;
    Edicion1: TMenuItem;
    Formato1: TMenuItem;
    Ayuda1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    Salir1: TMenuItem;
    Cortar1: TMenuItem;
    Copiar1: TMenuItem;
    Pegar1: TMenuItem;
    Fuente1: TMenuItem;
    Acercade1: TMenuItem;
    opdGuardar: TSaveDialog;
    opdAbriri: TOpenDialog;
    RichEdit1: TRichEdit;
    Nuevo1: TMenuItem;
    fndFuente: TFontDialog;
    bbtCursiva: TBitBtn;
    bbtSubrayado: TBitBtn;
    bbtNegrita: TBitBtn;
    bbtLeft: TBitBtn;
    bbtRight: TBitBtn;
    bbtCenter: TBitBtn;
    imgFirma: TImage;
    StaticText5: TStaticText;
    imgPresentacion: TImage;
    procedure Cortar1Click(Sender: TObject);
    procedure Pegar1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Nuevo1Click(Sender: TObject);
    procedure Fuente1Click(Sender: TObject);
    procedure Salir1Click(Sender: TObject);
    procedure bbtNegritaClick(Sender: TObject);
    procedure bbtCursivaClick(Sender: TObject);
    procedure bbtSubrayadoClick(Sender: TObject);
    procedure bbtLeftClick(Sender: TObject);
    procedure bbtCenterClick(Sender: TObject);
    procedure bbtRightClick(Sender: TObject);
    procedure Acercade1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmeditor: Tfrmeditor;
implementation
{$R *.dfm}
procedure Tfrmeditor.Cortar1Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure Tfrmeditor.Pegar1Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure Tfrmeditor.Copiar1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure Tfrmeditor.Guardar1Click(Sender: TObject);
begin
if opdGuardar.Execute then
RichEdit1.Lines.SaveToFile(opdGuardar.FileName);
end;
procedure Tfrmeditor.Abrir1Click(Sender: TObject);
begin
if opdAbriri.Execute then
   RichEdit1.Lines.LoadFromFile(opdAbriri.FileName);
end;
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin
if RichEdit1.Text <> '' then
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES
then
Guardar1Click( Self );
RichEdit1.Clear;
end;
procedure Tfrmeditor.Fuente1Click(Sender: TObject);
begin
if fndFuente.Execute then
with RichEdit1, fndFuente do
begin
SelAttributes.Name := Font.Name;
SelAttributes.Size := Font.Size;
SelAttributes.Color := Font.Color;
SelAttributes.Pitch := Font.Pitch;
SelAttributes.Style := Font.Style;
SelAttributes.Height := Font.Height;
end;
end;
procedure Tfrmeditor.Salir1Click(Sender: TObject);
begin
if MessageDlg('¿Estas Seguro Que Deseas salir?', mtInformation,[mbYes,mbNo],0)= mryes then
close;
end;
procedure Tfrmeditor.bbtNegritaClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsBold in Style ) then
Style := Style + [fsBold]
else
Style := Style - [fsBold];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtCursivaClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsItalic in Style ) then
Style := Style + [fsItalic]
else
Style := Style - [fsItalic];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtSubrayadoClick(Sender: TObject);
begin
with RichEdit1.SelAttributes do
if not ( fsUnderline in Style ) then
Style := Style + [fsUnderline]
else
Style := Style - [fsUnderline];
RichEdit1.SetFocus;
end;
procedure Tfrmeditor.bbtLeftClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taLeftJustify;
end;
procedure Tfrmeditor.bbtCenterClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taCenter;
end;
procedure Tfrmeditor.bbtRightClick(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taRightJustify;
end;
procedure Tfrmeditor.Acercade1Click(Sender: TObject);
begin
ShowMessage('Creado por: Ing. John Quintero ');
end;
end.

Aun desconosco cosas como, para que es el stfocuos miren donde lo utilizo:

Código Delphi [-]
Style := Style - [fsUnderline];
RichEdit1.SetFocus; // no entiendo esto
end;

y lo ultimo que tampoco entendi mucho, fue este fragmento de codigo, que sirve para generar un docuemnto nuevo, y que pregunte si uno quiere guardar el docuemnto que esta en el editor, como cuando trabajas word:

Código Delphi [-]
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin
if RichEdit1.Text <> '' then //no entiendo esto
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES //no entiendo esto
then
Guardar1Click( Self ); //no entiendo esto
RichEdit1.Clear;
end;

les agradeceria que me pudieran ayudar con estas cositas, que no me quedaron muy claras, necesito saber para que y por que se utilizan, y gracias por todo, y sin broncas contraveneno, que me ha servido mucho tus regaños, jejeje ...

[[Delphius]]

Empezado por BuRtOn

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte, por que se trata que yo lo haga a como de lugar, y me esforce mucho e hice mi propio programita de editor de texto, me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina , eso si me toco leer como nunca, y ahi aprendi mucho, y pude analisar cada parte miren como me quedo el programita:

Código Delphi [-]unit ufrmeditor;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls; type Tfrmeditor = class(TForm)
mnuPrincipal: TMainMenu;
Archivo1: TMenuItem;
Edicion1: TMenuItem;
Formato1: TMenuItem;
Ayuda1: TMenuItem;
Abrir1: TMenuItem;
Guardar1: TMenuItem;
Salir1: TMenuItem;
Cortar1: TMenuItem;
Copiar1: TMenuItem;
Pegar1: TMenuItem;
Fuente1: TMenuItem;
Acercade1: TMenuItem;
opdGuardar: TSaveDialog;
opdAbriri: TOpenDialog;
RichEdit1: TRichEdit;
Nuevo1: TMenuItem;
fndFuente: TFontDialog;
bbtCursiva: TBitBtn;
bbtSubrayado: TBitBtn;
bbtNegrita: TBitBtn;
bbtLeft: TBitBtn;
bbtRight: TBitBtn;
bbtCenter: TBitBtn;
imgFirma: TImage;
StaticText5: TStaticText;
imgPresentacion: TImage;
procedure Cortar1Click(Sender: TObject);
procedure Pegar1Click(Sender: TObject);
procedure Copiar1Click(Sender: TObject);
procedure Guardar1Click(Sender: TObject);
procedure Abrir1Click(Sender: TObject);
procedure Nuevo1Click(Sender: TObject);
procedure Fuente1Click(Sender: TObject);
procedure Salir1Click(Sender: TObject);
procedure bbtNegritaClick(Sender: TObject);
procedure bbtCursivaClick(Sender: TObject);
procedure bbtSubrayadoClick(Sender: TObject);
procedure bbtLeftClick(Sender: TObject);
procedure bbtCenterClick(Sender: TObject);
procedure bbtRightClick(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var frmeditor: Tfrmeditor; implementation {$R *.dfm} procedure Tfrmeditor.Cortar1Click(Sender: TObject);
begin RichEdit1.CutToClipboard; end;
procedure Tfrmeditor.Pegar1Click(Sender: TObject);
begin RichEdit1.PasteFromClipboard; end;
procedure Tfrmeditor.Copiar1Click(Sender: TObject);
begin RichEdit1.CopyToClipboard; end;
procedure Tfrmeditor.Guardar1Click(Sender: TObject);
begin if opdGuardar.Execute then RichEdit1.Lines.SaveToFile(opdGuardar.FileName); end;
procedure Tfrmeditor.Abrir1Click(Sender: TObject);
begin if opdAbriri.Execute then RichEdit1.Lines.LoadFromFile(opdAbriri.FileName); end;
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);
begin if RichEdit1.Text <> '' then if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES
then Guardar1Click( Self ); RichEdit1.Clear; end;
procedure Tfrmeditor.Fuente1Click(Sender: TObject);
begin if fndFuente.Execute then with RichEdit1, fndFuente do begin SelAttributes.Name := Font.Name; SelAttributes.Size := Font.Size; SelAttributes.Color := Font.Color; SelAttributes.Pitch := Font.Pitch; SelAttributes.Style := Font.Style; SelAttributes.Height := Font.Height; end;
end;
procedure Tfrmeditor.Salir1Click(Sender: TObject);
begin if MessageDlg('¿Estas Seguro Que Deseas salir?', mtInformation,[mbYes,mbNo],0)= mryes then close; end;
procedure Tfrmeditor.bbtNegritaClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsBold in Style ) then Style := Style + [fsBold] else Style := Style - [fsBold]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtCursivaClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsItalic in Style ) then Style := Style + [fsItalic] else Style := Style - [fsItalic]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtSubrayadoClick(Sender: TObject);
begin with RichEdit1.SelAttributes do if not ( fsUnderline in Style ) then Style := Style + [fsUnderline] else Style := Style - [fsUnderline]; RichEdit1.SetFocus; end;
procedure Tfrmeditor.bbtLeftClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taLeftJustify; end;
procedure Tfrmeditor.bbtCenterClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taCenter; end;
procedure Tfrmeditor.bbtRightClick(Sender: TObject);
begin RichEdit1.Paragraph.Alignment := taRightJustify; end;
procedure Tfrmeditor.Acercade1Click(Sender: TObject);
begin ShowMessage('Creado por: Ing. John Quintero ');
end;
end.


Aun desconosco cosas como, para que es el stfocuos miren donde lo utilizo:

[delphi]Style := Style - [fsUnderline];
RichEdit1.SetFocus; // no entiendo esto
end;
[/delpohi]

SetFocus hace que el RichEdit obtenga el foco y se pueda trabajar en él.


[quote=BuRtOn;265837]
y lo ultimo que tampoco entendi mucho, fue este fragmento de codigo, que sirve para generar un docuemnto nuevo, y que pregunte si uno quiere guardar el docuemnto que esta en el editor, como cuando trabajas word:

Código Delphi [-]
procedure Tfrmeditor.Nuevo1Click(Sender: TObject);

Código Delphi [-]
beginif RichEdit1.Text <> '' then //no entiendo esto
if Application.MessageBox( '¿Deseas guardar el texto actual?',
'Atención',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES //no entiendo esto
thenGuardar1Click( Self ); //no entiendo esto
RichEdit1.Clear;
end;

MB_ICONQUESTION MB_YESNO son dos constantes. La pimera para hacer que el cuadro de dialogo muestre una imagen determinada (el globito con la i).
La segunda para que muestre dos botones: Uno dirá SI y el otro NO. Cada uno devolverá una constante de resultado, que representará al botón pulsado.

Guardar1Click hace que se dispare el evento OnClick del botón Guardar1.

BuRtOn, sugiero que leas la ayuda que viene con delphi.
usa F1, ¡F1!

Empezado por BuRtOn

les agradeceria que me pudieran ayudar con estas cositas, que no me quedaron muy claras, necesito saber para que y por que se utilizan, y gracias por todo, y sin broncas contraveneno, que me ha servido mucho tus regaños, jejeje ...

Sabiendo que pides las cosas con prisas y urgencia con más razón debo evitar meterme. Me ha resultado un poco atropellado de tu parte haber pedido ayuda de esta manera tan apresurada. Veo que no seguiste mis recomendaciones cuanto te envié el MP.

Contra no te pidió que copies solo te dijo que hay una demo que puedes ver y consultar.

Saludos,

[ContraVeneno]

Empezado por BuRtOn

Na contraveneno, no quiero copiar nada, eso seria desonesto de mi parte... me extraña que tu me digas que copie algo, si tu heres el que dices que hay que tener disciplina

¿y en que parte de mi mensaje dije que copiaras el código?

A mi me extraña que digas que yo digo cosas que no dije ...

En la carpeta de demos, ahí ya viene hecho ese trabajo, para que lo consultes y tengas una referencia bastante clara sobre como hacer un editor de texto.

P.D. era, pasado del verbo ser, es sin h... eres, presente del verbo ser es sin h