variables y constantes

[SaGuMa]

en delphi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
Hola='Hola, ¿qué tal?';
var
Saludo: string;
begin
Saludo:=Edit1.Text;
  if Saludo='Hola' then
    ShowMessage (Saludo);

end;

y yo lo que quiero es que en vez de salirme en el Mensaje 'Hola' quiero q m salga 'Hola, ¿qué tal?'

[dec]

Hola,

Bueno. Es que has publicado el Hilo en Internet, y, me parece, el tema que tratas no tiene nada que ver. Moveré el Hilo a varios. Revisa la guía de estilo de los Foros, por favor.

Respecto de la cuestión que planteas... no la entiendo,... si quieres mostrar el valor de la constante, ¿porqué no lo haces?

Código Delphi [-]
ShowMessage(Hola);

[SaGuMa]

Ok pa la proxima vez ya lo se

Pero es que dependiendo del valor que tome la variable cambia el mensaje que tiene q mostrar

[dec]

Hola,

No te preocupes. Nadie nace sabiendo. Respecto de lo que planteas... dices que dependiendo del valor de una variable cambia el mensaje a mostrar al usuario, pero, por otro lado, más arriba dices que lo quieres mostrar es el valor de la constante "Hola"... no se entiende muy bien (por lo menos en lo que a mí respecta) lo que quieres conseguir... en mi opinión, claro está.

[[Caral]]

Hola
Tal vez asi:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  // Estas variables se podran utilizar en cualquier
  // Parte del form
  Hola: String; // Variable general
  Saludo: string;// Variable general


implementation

{$R *.dfm}

// Este es un procedimiento al que se podra
// LLamar en cualquier parte del from
Procedure Hola1;
Begin
 Hola:= 'Hola, ¿qué tal?';
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Saludo:= Edit1.Text;
  if Saludo ='Hola' then
    Hola1;
    ShowMessage(Hola);
end;
end.

Con esto las Variables Hola y Saludo estaran disponobles en todo el from
Intentalo y dices
Saludos

[SaGuMa]

no aver, es que ayer tenia un poco de prisa y no me explique bien (si es que las prisas no son buenas).

Aver, tenemos muchas constantes y una variable y depende del valor de la variable el ShowMessage va a mostrar un mesaje u otro.
Una cosa asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
Hola='Hola, ¿qué tal?';
Guillermo='¿Cómo estás, Guillermo?';
Pepe='Uy, ese nombre no me suena';
var
Saludo: string;
begin
Saludo:=Edit1.Text;
  if not (Saludo='') then
    ShowMessage (Saludo);
end;

[[maeyanes]]

Pues no entiendo que quieres...

Por que en tu ejemplo solo preguntas si Saludo no es cadena vacia, entonces muestralo en un ShowMessage, y luego?

Ahora, vamos a suponer, de casualidad no querras algo como esto?:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  Hola = 'Hola, ¿qué tal?';
  Guillermo = '¿Cómo estás, Guillermo?';
  Pepe = 'Uy, ese nombre no me suena';

var
  Saludo: string;

begin
  Saludo := Edit1.Text;
  if Saludo <> '' then
    ShowMessage(Saludo)
  else
    ShowMessage(Hola)
end;

Saludos...