Search results for query: *

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.....

thanks guys it elps me a lot

thanks it helps me a lot !!!

thanks it also elp me a lot...

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!!!

var currentdate, pastdate : Tdate; result : variant; begin result := strtodate(currentdate) - strtodate(pastdate); formatDateTime('d', result); end;

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

i've always been a pascal baby therefore Delphi is the Best!!! VB are for losers..... oppssss......

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;