I think this code could help you in your problem...
Function StrToUpper(str1 : string) : string;
var
ctr : integer;
ResultStr : string;
begin
ResultStr := '';
for ctr := 1 to length(str1) do
begin
ResultStr := ResultStr + Upcase(str1[ctr]);
end;
Result :=...
you can store the path and the filename of your bitmaps to a string and saved it it your table... its more convenient since the filesize of your wud be smaller.
well u can write a small textfile with the Hardisk serialno on it and u have to encrypt it to be more secure. so when ur program starts it automatically finds the file then decrypt it and check the serialno on it...
if someone copies ur exefile, the system would be useless!!! if he knows the...
just drop down a tbatchmove object ten just configure te following properties
set the mode to append
the source and the destination.
on your onclick event(or oter event) just do this...
batchmove1.execute
dats ol.....
remove your about box form from the autocreate list but be sure that u have added the unit of your aboutbox and then do this....
procedure TForm1.Button1Click(Sender: TObject);
begin
form2 := TForm2.create(self);
form2.showmodal;
form2.free;
end;
i agree with SVANELS...
interbase has a reserved words so be sure that the fieldnames of your olddatas would not be on interbase reserved words list or else you'll end up like me!!!
hi,
pls try this code....
with query1 do
begin
close;
sql.clear;
sql.add('insert into bidata');
sql.add('values :id, :address');
params[0].asstring := id.text;
params[1].asstring := address.text;
execSql;
end;
... you can also use parameter by name instead...
hi,
the diffult username and password is
username = SYSDBA
Password = MasterKey
if you badly need to access it try reinstalling interbase then use the above username and password. or else interbase cannot let you access... gud luck !!!
Battousai
hi,
i think i have a solution for you my friend... pls try this code...
assuming you declare MyOrderNo as Type REAL
MyOrderNo := QueryName.Fieldbyname('OrderNo').asFloat;
thats all !!! notify me wat happend... i'll be glad to find another solution
var
t: textfile;
l: string;
begin
AssignFile(T, 'd:\log.txt');
Reset(T);
while not eof(t) do
begin
readln(t,l);
table1.appendrecord([l]);
end;
closefile(t);
end;
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.