if then

[barakuda]

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

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]

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]]

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]

OK!!!

Muchas gracias asi mi codigo que da mas claro:

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:

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

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