我想做一个简单的通讯录，第一列显示人名，第二列显示号码。一个Button把Editname和Editnum两个文本框的内容添加到listbox，一个Button把listbox中选定的删除。
ListBox并不能实现你所要的那样的分列功能的。如果你非只要这个实现只有这样，但是这样并不美观。
Function SString(Const HS:String; Const L:Integer):String;
begin
Result:=Stringofchar(' ',L-Length(Hs))+HS;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s: string;
begin
s1 := Edit1.Text ;
s2 := Edit2.Text;
S := SString(s1,15) + Sstring(s2,15);
ListBox1.Items.Add(S);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.DeleteSelected;
end;
结果如何你放到Delphi里试试就知道了。如果不满意再给我发消息。
Function SString(Const HS:String; Const L:Integer):String;
begin
Result:=Stringofchar(' ',L-Length(Hs))+HS;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s: string;
begin
s1 := Edit1.Text ;
s2 := Edit2.Text;
S := SString(s1,15) + Sstring(s2,15);
ListBox1.Items.Add(S);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.DeleteSelected;
end;
结果如何你放到Delphi里试试就知道了。如果不满意再给我发消息。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2008-07-10
用listview!!!
