public void Tread_form.read_data(string param1;TCheckListBox param2 );
{
int i,j;
param2.Clear;
i=pos('% REF',param1);
j=0 ;
while (j<480) and (pos('%',copy(param1,i+30,2))>0)
{
param2.Items.Add(copy(param1,i+7,3)+' '+copy(param1,i+13,5)+' '+copy(param1,i+20,5));
if (j<480) then inc(j) else break;
inc(i,25);
}}
some functions,pls check yourself
{
int i,j;
param2.Clear;
i=pos('% REF',param1);
j=0 ;
while (j<480) and (pos('%',copy(param1,i+30,2))>0)
{
param2.Items.Add(copy(param1,i+7,3)+' '+copy(param1,i+13,5)+' '+copy(param1,i+20,5));
if (j<480) then inc(j) else break;
inc(i,25);
}}
some functions,pls check yourself
public void Tread_form.read_data(string param1;TCheckListBox param2 );
>>>
public void Tread_form.read_data(string param1;TCheckListBox param2 )