Add(MainForm,2953706,126,126)
{
}
Add(Button,10723851,126,189)
{
Left=45
Top=210
link(onClick,7226889:doAdd,[])
}
Add(RichEdit,7226889,238,189)
{
Left=5
Top=15
Width=140
Height=185
link(Str,13961135:Text,[])
}
Add(StrList,13961135,238,133)
{
Strings=#1:1|1:2|1:3|
}
procedure THIStrList._var_Text;
в hiStrList.pas
procedure THIStrList._var_Text;
var s:string;
begin
s := FList.Text;
if(FList.count > 0)and(FList.Items[FList.Count-1] <> '')then
delete(s, length(s)-1, 2);
dtString(_Data,s);
end;
var s:string;
begin
s := FList.Text;
if(FList.count > 0)and(FList.Items[FList.Count-1] <> '')then
delete(s, length(s)-1, 2);
dtString(_Data,s);
end;
Поиск
Друзья
Администрация