Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums
Reload this Page Search Results

Lost Password?
Register FAQ Members List Calendar Search Today's Posts Mark Forums Read

Page 1 of 10 1 23 Last »
Showing results 1 to 50 of 500
Search took 0.02 seconds. Search: Posts Made By: Jasser
Forum: General Today, 04:27 PM
Replies: 1
Views: 45
Posted By Jasser
This one is using an array, but you can modify it...

This one is using an array, but you can modify it to work with an array of record like your case.

http://www.swissdelphicenter.ch/en/showcode.php?id=1916
Forum: General Today, 04:23 PM
Replies: 1
Views: 28
Posted By Jasser
See ...

See

http://www.swissdelphicenter.ch/en/showcode.php?id=1034
http://www.swissdelphicenter.ch/en/showcode.php?id=312
http://www.swissdelphicenter.ch/en/showcode.php?id=1729
Forum: General 05-11-2013, 05:29 PM
Replies: 2
Views: 1,721
Posted By Jasser
The bellow funtion still works for me: ...

The bellow funtion still works for me:

function RunningProcessesList(const List: TStrings; FullPath: Boolean): Boolean;

function BuildListTH: Boolean;
var
SnapProcHandle: THandle;
...
Forum: General 04-19-2013, 04:28 PM
Replies: 1
Views: 703
Posted By Jasser
Try: var i : Integer; begin ...

Try:

var
i : Integer;
begin
Stringlist2.Sort;

for i:=0 to Stringlist1.Count-1 do begin
if Stringlist2.IndexOf(Stringlist1[i]) <> -1 then
...
Forum: General 04-15-2013, 07:49 PM
Replies: 5
Views: 1,129
Posted By Jasser
Consider the updates.

Consider the updates.
Forum: General 04-14-2013, 08:01 PM
Replies: 5
Views: 1,129
Posted By Jasser
1- What does it do on closing? 2- Check if the...

1- What does it do on closing?
2- Check if the PC's have anti-virus thing and tell me.
3- Tell me on which version of Windows this problem appears.
Forum: General 04-08-2013, 04:24 PM
Replies: 8
Views: 1,293
Posted By Jasser
The answer is in the bellow links: ...

The answer is in the bellow links:

http://www.swissdelphicenter.ch/en/showcode.php?id=2219
http://www.swissdelphicenter.ch/en/showcode.php?id=1500...
Forum: General 04-02-2013, 01:22 PM
Replies: 1
Views: 1,247
Posted By Jasser
USE SQL: UPDATE TheTable SET PurRate =...

USE SQL:

UPDATE TheTable SET PurRate = PurRate + ChangedPercentage
Forum: General 03-21-2013, 01:00 PM
Replies: 3
Views: 1,120
Posted By Jasser
Where do you get the error? and what is the field...

Where do you get the error? and what is the field type?
Forum: General 03-20-2013, 01:45 PM
Replies: 3
Views: 1,120
Posted By Jasser
Try: //To load it. RichEdit1.Lines.Text...

Try:


//To load it.
RichEdit1.Lines.Text := ADOQuery1['LongTextField'];


//To save it back to the DB.
ADOQuery1.Edit;
ADOQuery1['LongTextField'] := RichEdit1.Lines.Text;
Forum: General 02-24-2013, 04:01 PM
Replies: 2
Views: 1,554
Posted By Jasser
It depends on what the application does. Usually...

It depends on what the application does. Usually nothing needs to be done.
Forum: General 02-18-2013, 04:36 PM
Replies: 2
Views: 3,020
Posted By Jasser
I don't think it will work with Windows 7 and 8. ...

I don't think it will work with Windows 7 and 8. A work around is to put a label with the hint text over the editbox and hide it once the editbox get focused using "OnEnter" event. Very simple and...
Forum: General 02-02-2013, 07:12 AM
Replies: 1
Views: 3,779
Posted By Jasser
Use QuickReport.

Use QuickReport.
Forum: General 01-31-2013, 11:55 AM
Replies: 4
Views: 4,174
Posted By Jasser
Try: try Evalualte the expression...

Try:


try
Evalualte the expression here.
except
Showmessage('Wrong expression');
end;
Forum: General 01-30-2013, 12:09 PM
Replies: 4
Views: 4,174
Posted By Jasser
See...

See http://www.swissdelphicenter.ch/en/showcode.php?id=470
Forum: General 01-29-2013, 09:25 AM
Replies: 3
Views: 4,447
Posted By Jasser
But you said before that you need to test it...

But you said before that you need to test it first! Unless you have other reasons, I think the easiest way to just call the function. Go to the link bellow and type "dll" and you will get some...
Forum: General 01-28-2013, 07:42 PM
Replies: 3
Views: 4,447
Posted By Jasser
Call the procedure and see if it works. ...

Call the procedure and see if it works.

http://www.swissdelphicenter.ch/en/showcode.php?id=915
Forum: General 01-24-2013, 03:36 PM
Replies: 5
Views: 4,336
Posted By Jasser
Soo good to hear that...and welcome back :)

Soo good to hear that...and welcome back :)
Forum: General 01-24-2013, 03:32 PM
Replies: 10
Views: 5,473
Posted By Jasser
How do you change "Itemindex" by code or by...

How do you change "Itemindex" by code or by clicking the combobox?
Forum: General 01-24-2013, 03:06 PM
Replies: 5
Views: 4,336
Posted By Jasser
I am not familiar with HTML, but if you are...

I am not familiar with HTML, but if you are trying to have the same dialog from Delphi (which I don't) then you can try TOpenPictureDialog.

if OpenPictureDialog1.Execute then
sImageFullPath :=...
Forum: General 01-23-2013, 02:53 PM
Replies: 10
Views: 5,473
Posted By Jasser
What is "idemindex"?

What is "idemindex"?
Forum: General 01-19-2013, 03:49 PM
Replies: 3
Views: 3,754
Posted By Jasser
To change the srcreen resolution see: ...

To change the srcreen resolution see:

http://www.swissdelphicenter.ch/en/showcode.php?id=158
Forum: General 01-19-2013, 03:46 PM
Replies: 3
Views: 3,754
Posted By Jasser
Use the bellow function: Function...

Use the bellow function:

Function RunningInTheIDE: Boolean;
begin
Result := FindWindow('TAppBuilder', nil) > 0;
end;



//Example:
Forum: General 01-18-2013, 04:41 PM
Replies: 4
Views: 3,315
Posted By Jasser
Do it the same way.

Do it the same way.
Forum: General 01-15-2013, 05:28 PM
Replies: 7
Views: 4,492
Posted By Jasser
Correction…that is 11 years :)

Correction…that is 11 years :)
Forum: General 01-15-2013, 09:09 AM
Replies: 4
Views: 3,315
Posted By Jasser
Use an ADOQuery and write somthing like: ...

Use an ADOQuery and write somthing like:

ADOQuery.SQL.Add('CREATE TABLE MyTable');
ADOQuery.SQL.Add('(');
ADOQuery.SQL.Add('MyID INTEGER,');
ADOQuery.SQL.Add('MyName Text(20)');...
Forum: General 01-13-2013, 08:47 AM
Replies: 6
Views: 8,453
Posted By Jasser
See this also for more references. ...

See this also for more references.

http://www.swissdelphicenter.ch/en/showcode.php?id=327
Forum: General 12-17-2012, 09:04 AM
Replies: 2
Views: 4,396
Posted By Jasser
Put the bellow line in every event you want to...

Put the bellow line in every event you want to call BitBtn2Click in Form1.


Form1.BitBtn2.OnClick(self);
Forum: General 12-09-2012, 06:39 PM
Replies: 5
Views: 3,403
Posted By Jasser
:)Norrit..do you think we should keep this one??

:)Norrit..do you think we should keep this one??
Forum: General 12-09-2012, 06:29 PM
Replies: 5
Views: 3,403
Posted By Jasser
I can see!!! Your name have a message. Thank you...

I can see!!! Your name have a message. Thank you for sharing...
Forum: General 12-09-2012, 12:05 PM
Replies: 5
Views: 3,403
Posted By Jasser
Did you set the "Increment" property of UpDown to...

Did you set the "Increment" property of UpDown to a value that is not "0"?
Forum: General 12-08-2012, 06:30 AM
Replies: 1
Views: 2,724
Posted By Jasser
Put the code inside a TTimer and check the times...

Put the code inside a TTimer and check the times inside the timer.
Forum: General 12-04-2012, 04:26 PM
Replies: 0
Views: 2,453
Posted By Jasser
Admin…you need to stop Subscription for some time.

Admin…you need to stop Subscription for some time.
Forum: General 12-04-2012, 03:53 PM
Replies: 1
Views: 2,659
Posted By Jasser
Admin…you need to stop Subscription for some time.

Admin…you need to stop Subscription for some time.
Forum: General 12-03-2012, 02:03 PM
Replies: 2
Views: 4,344
Posted By Jasser
Show me some code.

Show me some code.
Forum: General 12-03-2012, 10:12 AM
Replies: 2
Views: 2,241
Posted By Jasser
Try "F8".....

Try "F8".....
Forum: General 11-28-2012, 06:48 AM
Replies: 5
Views: 2,292
Posted By Jasser
Try: var f: file; ...

Try:

var
f: file;
FileName: string;
s: array[0..16] of char;
begin
FileName := 'C:\abc.txt';

AssignFile(f, FileName);
Forum: General 11-27-2012, 03:17 PM
Replies: 5
Views: 2,292
Posted By Jasser
You have to declare "s" as: s : array[0..16]...

You have to declare "s" as:

s : array[0..16] of char;

Not as a "STRING" then it will work.

To make it dynamic show me your code.
Forum: General 11-21-2012, 07:23 AM
Replies: 3
Views: 824
Posted By Jasser
See: ...

See:

http://www.swissdelphicenter.ch/en/showcode.php?id=772
http://www.swissdelphicenter.ch/en/showcode.php?id=1498
Forum: General 11-20-2012, 12:48 PM
Replies: 4
Views: 947
Posted By Jasser
Sorry...it should be "StrToInt"

Sorry...it should be "StrToInt"
Forum: General 11-20-2012, 10:23 AM
Replies: 4
Views: 947
Posted By Jasser
//If the value is integer. if...

//If the value is integer.
if IntToStr(Edit1.Text) > IntToStr(Edit2.Text) then


//If the value is float/double.
if FloatToStr(Edit1.Text) > FloatToStr(Edit2.Text) then

//If the value is...
Forum: General 11-19-2012, 06:57 PM
Replies: 2
Views: 748
Posted By Jasser
!!!! are you in the right place?

!!!! are you in the right place?
Forum: General 11-18-2012, 03:58 PM
Replies: 7
Views: 1,019
Posted By Jasser
For more OLE with Word and Delphi see...

For more OLE with Word and Delphi see http://www.djpate.freeserve.co.uk/AutoWord.htm
Forum: General 11-18-2012, 03:44 PM
Replies: 7
Views: 1,019
Posted By Jasser
I have made some changes to make your code more...

I have made some changes to make your code more clean:


var
WordApp, WordRange, SearchString, ReplaceString:OLEVariant;
WordDoc :string;
t:integer;
...
Forum: General 11-17-2012, 03:21 PM
Replies: 7
Views: 1,019
Posted By Jasser
If its works for VB then it should work for...

If its works for VB then it should work for Delphi (Simply becuase it is OLE code)!!! Can you show me some complete code?
Forum: General 11-17-2012, 09:22 AM
Replies: 7
Views: 1,019
Posted By Jasser
It should be like this: uses ComObj; ...

It should be like this:


uses
ComObj;
..........................................................
..........................................................
var
Oval : OLEVariant;...
Forum: General 11-06-2012, 02:00 PM
Replies: 6
Views: 751
Posted By Jasser
You have to click on the right record and then...

You have to click on the right record and then press the button as explained before.
Forum: General 11-06-2012, 01:14 PM
Replies: 6
Views: 751
Posted By Jasser
Try: procedure TForm1.Button1Click(Sender:...

Try:

procedure TForm1.Button1Click(Sender: TObject);
begin
TheStoredProcedure( DBGrid1.DataSource.DataSet['ID']) );
end;
Forum: General 11-06-2012, 12:07 PM
Replies: 6
Views: 751
Posted By Jasser
Assuming "ID" is an integer use "OnCellClick"...

Assuming "ID" is an integer use "OnCellClick" event of the DBGrid:


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Showmessage( IntToStr(DBGrid1.DataSource.DataSet['ID'])...
Forum: General 11-05-2012, 12:12 PM
Replies: 8
Views: 772
Posted By Jasser
The bellow code will rename all Labels in the...

The bellow code will rename all Labels in the form at once. Try to put it in the "OnCreate" event of the form.

var
i,c : Integer;
begin
c := 0;

for i:=0 to...
Showing results 1 to 50 of 500
Page 1 of 10 1 23 Last »

 
Forum Jump

All times are GMT. The time now is 06:19 PM.

Delphi Pages - Archive - Top - Contact Us

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2013, vBulletin Solutions, Inc.