Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   if then (https://www.clubdelphi.com/foros/showthread.php?t=69855)

barakuda 14-09-2010 02:21:05

if then
 
Hola verán soy novato en la programación en delphi pero mi hafan de probarlo y de experimentar me lleva aveces a la desesperación, intento hacer un programita que al debolver le un resultado este se muestre en color verde por ejemplo DBText8.Font.Color:=(clLime) y a la vez que se mostrase ese mismo texto en negrita, el codigo es el siguiente

Código:

if DBText8.Caption=UpperCase(Edit1.Text) then DBText8.Font.Color:=(clLime);
if DBText8.Caption=UpperCase(Edit1.Text) then DBText8.Font.Style:=DBText8.Font.Style+[fsBold];

mi pregunta es; hay alguna manera para que desde la primera linea (la que le dice el color de letra) ta bien le diga el tamaño asi de esa manera me ahorro la 2ª linea

ya les digo que soy novato pero es posible concadenar al then es decir;

(SI) a=b (ENTONCES HAZ) esto y esto y esto (SI NO) eso otro y eso y eso

gracias y un saludo cordial!!

roman 14-09-2010 02:36:45

Sí, claro que es posible. La estructura general de la cláusula if-then utiliza un bloque begin-end para englobar múltiples sentencias:

Código Delphi [-]
if Condición then
begin
  Sentencia1;
  Sentencia2;
  ...
end;

// Saludos

Caral 14-09-2010 02:44:14

Hola
Lo que dice el Maestro Roman, pero a lo tuyo.
Código Delphi [-]
if DBText8.Caption = UpperCase(Edit1.Text) then 
begin
DBText8.Font.Color:= (clLime);
DBText8.Font.Style:= [fsBold];
end;

Otro:
Código Delphi [-]
if DBText8.Caption = UpperCase(Edit1.Text) then 
begin
With DBText8 do 
begin
Font.Color:= (clLime);
Font.Style:= [fsBold];
end;
end;

Saludos
PD: Me alegra mucho verte mas activo Maestro y amigo Roman.

barakuda 14-09-2010 02:50:51

OK!!!

Muchas gracias asi mi codigo que da mas claro:

Código:

if DBText8.Caption=UpperCase(Edit1.Text) then
  begin
DBText5.DataField:='ip_A';
DBText8.Font.Color:=(clLime);
DBText8.Font.Style:=DBText8.Font.Style+[fsBold];
  end

un saludo !!!

Corrijo mejor asi:

Cita:

if DBText8.Caption=UpperCase(Edit1.Text) then

begin
DBText5.DataField:='ip_A';
DBText8.Font.Color:=(clLime);
DBText8.Font.Style:= [fsBold];
end


La franja horaria es GMT +2. Ahora son las 00:46:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi