variables y constantes

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

[SaGuMa]

nop. lo que quiero es que cuando la variable tome el valor 'Hola' m diga 'Hola, ¿qué tal?' cuando tome el valor 'Guillermo' me diga ¿Cómo estas, Guillermo?...

[[maeyanes]]

Ah ya...

Entonces sería algo como:

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 = 'Hola' then
    ShowMessage(Hola)
  else
    if Saludo = 'Guillermo' then
      ShowMessage(Guillermo)
    else
      if Saludo = 'Pepe' then
        ShowMessage(Pepe)
      else
        ShowMessage(Saludo)
end;

Saludos...

[[seoane]]

La respuesta seria usar una serie de if anidados, uno por cada valor posible. Pero eso no quedaría "bonito", así que porque no usar un TStringList:

Código Delphi [-]
// Esta es una variable global
var
  Lista: TStringList;


// Para inicalizar los valores, usalo en el OnCreate por ejemplo
Lista:= TstringList.Create;
Lista.Values['HOLA']:= 'Hola, ¿qué tal?';
Lista.Values['GUILLERMO']:= '¿Cómo estás, Guillermo?';
Lista.Values['PEPE']:= 'Uy, ese nombre no me suena';


// Para usarlo
Saludo:= 'Hola';
ShowMessage(Lista.Values[Uppercase(Saludo)]);

// Para destruir el TStringList, usalo en el evento OnClose por ejemplo
Lista.Free;

También puedes cargar la lista desde un archivo de texto, donde cada linea tiene el siguiente formato: Nombre=Valor