www.pudn.com > sybase_dblib4.zip > sybase_components.pas

unit sybase_components; 
interface 
uses classes,sysutils,dialogs,sybedit; 
 
type 
  SybObjectname = string[30]; 
  appfieldtype = string[30]; 
 
type tsybfield = class(tsybedit) 
end; 
 
var DatabasesList     :TList; 
    FieldsList        :TList; 
    comboboxlist      :TList; 
    listboxlist       :TList; 
    labellist         :TList; 
    sproclist         :TList; 
    navigatorlist     :TList; 
    tablelist         :TList; 
    querylist         :TList; 
 
    FirstDatabase     :byte; 
    FirstField        :byte; 
 
function LoadFromFile(FileName :string):ansistring; 
 
implementation 
 
function LoadFromFile(FileName :string):ansistring; 
var fin   :textfile; 
    l     :string; 
    res   :ansistring; 
begin 
  res:=''; 
  assignfile(fin,filename); 
  reset(fin); 
  while not eof(fin) do 
  begin 
    readln(fin,l); 
    res:=res + ' ' + l; 
  end; 
  closefile(fin); 
  result:=res; 
end; 
 
begin 
{  FirstDatabase:=0;} 
  FirstField:=0; 
end.