sybase_components.pas

来自「sybase大全」· PAS 代码 · 共 50 行

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.