W
wangxian11
Unregistered / Unconfirmed
GUEST, unregistred user!
程序很简单，aaa.text中只有“../inf/12.bmp”
而我要做的是判断是不是“.bmp”格式，如果是就显示
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
SL1:TStringList;
begin
SL1:=TStringList.Create;
SL1.LoadFromFile('../aaa.txt');
for i:=0 to SL1.Count-1 do
begin
if Extractfileext(SL1.Strings)='.bmp' then
begin
Image.Picture.LoadFromFile(SL1.Strings);
Image.Enabled:=True;
Image.Effect := TEffect(ieCircle);
Image.Invalidate;
end;
end;
end;
现在的问题是IF语句好象根本没有判断。
而我要做的是判断是不是“.bmp”格式，如果是就显示
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
SL1:TStringList;
begin
SL1:=TStringList.Create;
SL1.LoadFromFile('../aaa.txt');
for i:=0 to SL1.Count-1 do
begin
if Extractfileext(SL1.Strings)='.bmp' then
begin
Image.Picture.LoadFromFile(SL1.Strings);
Image.Enabled:=True;
Image.Effect := TEffect(ieCircle);
Image.Invalidate;
end;
end;
end;
现在的问题是IF语句好象根本没有判断。