Question

在delphi中如何使用if else

a := '1111';
b := '2222';
c := (if a = '' then '' else a);
如果a为空，那么c=''，否则c := a;
如何在一个赋值语句中书写？
如何通过在一个赋值语句中书写。
如：c := 'mm' + (if a = '' then '' else a)

Answer 1

在delphi中if语句的使用方式大致有以下几种：
if <逻辑表达式> then <语句1>;

if <逻辑表达式> then <语句1> else <语句2> ;

if <逻辑表达式> then
begin
<语句块1>
end;

if <逻辑表达式> then
begin
<语句块1>
end
else begin
<语句块2>
end

就是当逻辑表达式的值为真时，执行语句1或语句块1（内中可有若干语句）；当逻辑表达式的值为假时，执行语句2或语句块2（内中可有若干语句）。，其中语句2或语句块2是可选的。

还有，if语句是可以嵌套使用的。当if语句嵌套使用时，每一个else子句，总是与它前面离它“最近的”、且未配对过的if相匹配（即这个else是当该if条件不成立时才执行的）。

Answer 2

1、 if a='' then
c:=''
else
c:=a;

2、 if a='' then
c:='mm'
else
c:='mm'+a;
其实 第一个问题 可直接简化成： c:=a;
第二个问题 可直接简化成： c:='mm'+a;
不管a 是否为空值。

Answer 3

function GetString(a :string):string;
begin
if a = '' then
result := ''
else
result := a;
end;

调用:

var
a,c :string;
begin
a := '1111';
c := 'mm' + GetString(a);
end;

Answer 4

if a='' then begin
c:='';
end
else begin
c:=a;
end;

Answer 5

if a='' then
c:=''
else
c:=a;