Ayuda por favor...

[ContraVeneno]

Empezado por BuRtOn

Bueno el problema es que no se como manejar bien el if, ya que solo me dieron la estructura general...

Me sorprende mucho porque un "IF" es la estructura más simple y sencilla de cualquier lenguaje de programación; si tienes problemas con un "IF", tienes muchos y muy serios problemas.

O te estas equivocando de carrera, o de plano tu profe es muy malo o no se que pensar...

Un libro Burton, lee un libro...

[BuRtOn]

Contraveneno no soy malo ni mi maestro es malo, es que usted es perfecto o que ??? osea me pregunto si alguna vez tuviste errores solo voy en 2 año de la universidad, he visto solo c++ y java, y lo que no entendia hera como iba la estructura del if, mire como mi profesor me dio la estructura del if:

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

y mire como despues me dice delphius que es:

Código Delphi [-]
if Nota = 1  then begin            ShowMessage('Burro');          end  else begin          if Nota = 10             then begin                      //.... sentencias...                    end             else // sentencias...        end;

me equivoque fue por que pense que la condicion iba entre parentesis, y mi maestro no coloco end al final del if y eso no lo sabia, y si men, equivocarse es de humanos , y con eso es que uno aprende o es que tu te la sabias todas cuando empesaste y nunca te equivocaste en nada ??? perdon por ser tan directo, pero pareciera que tu nunca ubieras tenido errores....y no me equivoque de carrera, si me equivoque oh no lo decido solo yo, ninguna otra persona me lo puede desir...

Bueno contraveneno lo otro que me doy cuenta, es que tu como que nunca ayudas sin antes hacer sentir mal a la otra persona, he visto algunas de tus respuestas al foro, y es asi, que malo es eso, que sepas tanto y humilles mucho....lo lamento hombre....pero mira lo que me escribiste, no me aportaste nada, y si me criticaste todo, lo unico que aportaste fue, lee un libro BUrToN .......en fin contraveneno gracias...

[[Delphius]]

BuRtOn,
No lo tomes a mal, yo también te aconsejo una sana lectura. Puedes comenzar con la Cara Oculta de Delphi que la puedes encontrar en la sección FTP.

La estructura difiere porque es requisito de poner begin-end cuando se trata de varias sentencias, si se trata de una sola basta con poner como lo indicó tu profesor. El compilador así lo exije. La regla es:

Si se va a ejecutar varias sentencias (ya se dentro de un case, un if, while o repeat) se debe encerrar dichas sentencias en un begin-end.

Además, la programación es más que leer libros... requiere de práctica... y mucha.

Todos tenemos errores, muy seguro que ContraVeneno tuvo sus tropiezos.
Pero el problema aquí es que a ti, lamentablemente te falta lectura. No lo tomes a mal, pero es que tus preguntas pasan por lo básico del lenguaje. Y ello está bien redactado tanto en la ayuda, como en libros.

Mis mensajes han sido deliberadamente expuestos así para que tu mismo puedas descubrir donde estan tus fallas. La idea es que tu aprendas y razones, no que copies.

Por cierto, nunca te debes quedar con lo visto en clase... recuerda y ten presente que la programación es más de LOGICA que saberse cada rincón del lenguaje.

Saludos,

[[Caral]]

Hola
Veamos un poco este enredo:

Empezado por BuRtOn

mire como mi profesor me dio la estructura del if:

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



Bueno, esto no funciona, el else no puede estar precedido de un punto y coma, si no hay un principio y un fin puede brincarse el resultado a su antojo, osea el profe

Empezado por BuRtOn

y mire como despues me dice delphius que es:

Código Delphi [-] if Nota = 1 then
begin
ShowMessage('Burro');
end
else begin if Nota = 10 then
begin
ShowMessage('genio');
end;



Aqui delphius esta haciendo una lista de If else, en este caso con dos opciones claras, como veras el else no esta precedido por un punto y coma y cada sentencia empieza y termina, esta mucho mas claro y funcional.
Lo mismo seria para una sentencia simple:

Código Delphi [-]if Nota = 1 then
ShowMessage('Burro') // no tiene punto y coma.
else
ShowMessage('genio');
end;


En este caso lo contrario de 1 sera genio.
Ahora en esto:

Empezado por BuRtOn

Bueno contraveneno lo otro que me doy cuenta, es que tu como que nunca ayudas sin antes hacer sentir mal a la otra persona, he visto algunas de tus respuestas al foro, y es asi, que malo es eso, que sepas tanto y humilles mucho....lo lamento hombre....pero mira lo que me escribiste, no me aportaste nada, y si me criticaste todo, lo unico que aportaste fue, lee un libro BUrToN .......en fin contraveneno gracias...

Te equivocas rotundamente.
Saludos
Edito: no pude colocar las etiquetas, por favor si algun moderador me ayuda, gracias.

[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.