• BMC Ltd
• 1823-377-789
• 127.45
• £13.99

More detail
1. test1
   
2. test2
   
3. test3
   
4. test4
   
5. a further test
   
6. yet another test
   
7. final test
   

• BBC Publications
• 01129-098-912
• 187.6
• £ 14.99

1Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.
Sad, self-indulgent dirge bd TV presenter
.Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.

2Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.
Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.
Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.

3Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.Sad, self-indulgent dirge by Britain's most self-obsessed TV presenter.

       if s2='DIREC' then f:= table3.fieldbyname('DIRECTORY').asstring;

     if s2='SUBID' then
     begin
     while Query1.eof=false do
     begin
     pflag:=0;
     s1:=s;
     f:='';
     s2:='';
     s3:='';
     if query1.fieldbyname('Sub_dir').asstring=table3.fieldbyname('DIRECTORY').asstring then
     begin
     fflag:=1;
     s2:=query1.fieldbyname('TAG01').asstring;
     if t02=true then s2:=s2+'--'+ query1.fieldbyname('TAG02').asstring;
     if t03=true then s2:=s2+'--'+ query1.fieldbyname('TAG03').asstring;
     s3:=table3.fieldbyname('DIRECTORY').asstring;
     f:='./'+s3+'/'+query1.fieldbyname('PAGEID').asstring+'.htm'+'">'+s2;
     insert(f,s1,r);
     memout.lines.add(s1);
     end;
     application.processmessages;
     Query1.next;
     end;
     
     end;
     end;
     if (fflag=0)  then insert(F,s,r);
     if (fflag=0) and (pflag=0) then memout.lines.add(s);
     if pflag=0 then i:=i+1;
end;
labelsindex.caption:=table3.Fields[0].asstring;
application.processmessages;
end;
function TForm1.genimage(img: string): string;
begin
  result:='';
  if img = '' then begin
  result := '../'+'images/default.gif';
  end else
   result := './'+'images/'+img;
  end;
procedure TForm1.FormCreate(Sender: TObject);
var
IniFile : TIniFile;
begin
tab.pageindex:=0;
IniFile := TIniFile.Create('grinder.ini');
{netpath.caption:=IniFile.Readstring('default', 'NETPATH', 'c:\grinder\');  }
whattable:=IniFile.Readstring('default','Lasttable','A');
tableA1.caption:=IniFile.Readstring('table','A','A');
tableB1.caption:=IniFile.Readstring('table','B','B');
tableC1.caption:=IniFile.Readstring('table','C','C');
tableD1.caption:=IniFile.Readstring('table','D','D');
tableE1.caption:=IniFile.Readstring('table','E','E');
tableF1.caption:=IniFile.Readstring('table','F','F');
tname:=IniFile.Readstring('table',whattable,'A');
IniFile.Free;
x2.caption:='You are using '+uppercase(tname)+' Website';
tab.hint:=x2.caption;
readini;
table1.databasename:=pathname;
table2.databasename:=pathname;
table3.databasename:=pathname;
table4.databasename:=pathname;
table1.tablename:=whattable+'.dbf';
table2.tablename:=whattable+'subdir.dbf';
table3.tablename:=whattable+'subdir.dbf';
linktable;  
table1.open;
table2.open;
application.hintpause:=500;
end;
procedure TForm1.linktable;
begin
table4.tablename:=whattable+'2.dbf';
table4.indexname:='Pageid';

jeremy@bbcnet.co.uk

1. Custom Wheel Trims
   
2. Custom Steeringwheel
   
3. Custom Officers?
   

• BMC Pub Ltd
• 03883-846-298
• 23.4
• £12.99

• Vanity Press
• 0167-887-564
• 124.9
• £66.99

ace@freenet.com