您所在位置：主题：一段代码的问题，帮忙看下
cn_xl
[专家分：0] 发布于 2011-03-29 23:04:00
procedure TForm1.btninterpretClick(Sender: TObject);
var
sname:string;
begin
sname := edtinput.text;
case sname of
'abf' : memoout.lines := 'Adobe二进制屏幕字体';
else
memoout.lines := '后缀名不存在';
end;
end.
编译错误，请问下要怎么声明变量啊，谢谢 回答详细点
var
sname:string;
begin
sname := edtinput.text;
case sname of
'abf' : memoout.lines := 'Adobe二进制屏幕字体';
else
memoout.lines := '后缀名不存在';
end;
end.
编译错误，请问下要怎么声明变量啊，谢谢 回答详细点