Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums

Lost Password?

Showing results 1 to 50 of 500
Search took 0.16 seconds.
Search: Posts Made By: GeoWink
Forum: General 06-12-2019, 02:58 PM
Replies: 2
Views: 6,375
Posted By GeoWink
I use the following to go to a form with...

I use the following to go to a form

with TDataForm.Create(Self) do
try
ShowModal;
finally
Release;
end;

To go back to the calling form I use
Forum: General 12-21-2018, 05:46 PM
Replies: 4
Views: 14,322
Posted By GeoWink
Hey, I'm just trying to help out, no need for...

Hey, I'm just trying to help out, no need for sarcasm. We just try to find answers when possible.
Forum: General 12-20-2018, 11:54 PM
Replies: 4
Views: 14,322
Posted By GeoWink
Did you try Google? There are several pointers to...

Did you try Google? There are several pointers to this from past years.
Forum: General 08-12-2018, 02:44 AM
Replies: 1
Views: 1,707
Posted By GeoWink
I answered this myself.

I answered this myself.
Forum: General 08-10-2018, 12:57 PM
Replies: 1
Views: 1,707
Posted By GeoWink
Create and save Excel file

I have created an Excel spreadsheet in my program but not sure how to save it to the desktop. Here is what I did...

procedure TForm1.Button1Click(Sender: TObject);
var
arrData: Variant;
xls,...
Forum: General 12-28-2017, 08:17 PM
Replies: 14
Views: 10,958
Posted By GeoWink
I did "slideshow using Delphi" in Google and got...

I did "slideshow using Delphi" in Google and got what looks like a bunch of good stuff. Try it.

George
Forum: General 07-19-2017, 04:37 PM
Replies: 14
Views: 10,958
Posted By GeoWink
Did you try Google? There seems to be a bunch of...

Did you try Google? There seems to be a bunch of databases available.

George
Forum: DB-Aware 01-26-2017, 04:08 PM
Replies: 3
Views: 3,325
Posted By GeoWink
This is how I do it. Right or wrong, it works...

This is how I do it. Right or wrong, it works well for me. Not sure what you mean by SQL solution since I am using SQL to get the values. Yes, you can add a new record by putting a label on the Panel...
Forum: DB-Aware 01-26-2017, 03:26 AM
Replies: 3
Views: 3,325
Posted By GeoWink
One way is to read the data and transfer these...

One way is to read the data and transfer these data to TEdits and display them on a panel you set up as you like. You can change any data. Put on an Accept Button and a Cancel Button and go to it.
Forum: General 01-01-2017, 08:01 PM
Replies: 6
[SOLVED] PNG to BMP
Views: 5,241
Posted By GeoWink
If all you need to do is convert a PNG to BMP...

If all you need to do is convert a PNG to BMP then got to

http://www.easy2convert.com/png2bmp/

I downloaded the exe and it works nicely.

Is this all you need to do because it sure works...
Forum: DB Tools 12-31-2016, 09:50 PM
Replies: 4
Views: 4,590
Posted By GeoWink
There are quite a few discussions about this...

There are quite a few discussions about this error on Google. Check it out. They say it is because the file does not get loaded properly.

George
Forum: General 12-31-2016, 03:33 PM
Replies: 6
[SOLVED] PNG to BMP
Views: 5,241
Posted By GeoWink
png to bmp using Delphi -- Google is your friend ...

png to bmp using Delphi -- Google is your friend

George
Forum: General 12-25-2016, 07:24 PM
Replies: 1
Views: 1,685
Posted By GeoWink
TD := DateToStr(Now); TD is a string... ...

TD := DateToStr(Now);

TD is a string...

George
Forum: General 08-17-2016, 08:14 PM
Replies: 6
Views: 2,420
Posted By GeoWink
How about changing the Font to Arial and 24. That...

How about changing the Font to Arial and 24. That sure makes it bigger.

George
Forum: General 04-30-2016, 09:06 PM
Replies: 3
Views: 1,708
Posted By GeoWink
I put 15 20 and 25 into a ListView and then used...

I put 15 20 and 25 into a ListView and then used the code you showed

MI := StrToInt(ListView1.Items[0].Caption);

and put the result into a TEdit: Text2.Text := IntToStr(MI);

Worked just...
Forum: General 04-27-2016, 09:31 PM
Replies: 14
Views: 10,958
Posted By GeoWink
Am I missing something? This seems like straight...

Am I missing something? This seems like straight forward SQL stuff. Do you not know this code?

George
Forum: General 03-17-2016, 03:01 PM
Replies: 2
Views: 1,392
Posted By GeoWink
Thanks, I took out the initial "with" and got the...

Thanks, I took out the initial "with" and got the program to compile. I have used "with" for years and find it VERY convenient. I can't believe this did not happen before (we are talking decades.)...
Forum: General 03-16-2016, 09:33 PM
Replies: 2
Views: 1,392
Posted By GeoWink
E2066

I am using Delphi2009 and am reading a text file, processing, and putting into a database. Some of the code follows...

procedure TForm1.GetData1Click(Sender: TObject);
begin
TheFile :=...
Forum: General 02-21-2016, 08:42 PM
Replies: 4
Views: 1,555
Posted By GeoWink
A := Text1.text; B := Text2.text; if...

A := Text1.text;
B := Text2.text;
if CompareStr(A,B) = 0 then
Edit1.Text := A;
Forum: General 10-10-2015, 08:08 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
X := Pos(' ',ST); if X <> 0 then begin ST...

X := Pos(' ',ST);
if X <> 0 then
begin
ST := Copy(ST,X+1,Length(ST));
X := Pos(' ',ST);
if X <> 0 then
begin
ST := Copy(ST,X+1,Length(ST));
X := Pos(' ',ST);
if X <> 0...
Forum: General 10-10-2015, 06:25 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
Okay, then go back to my suggestion of checking...

Okay, then go back to my suggestion of checking the next character until it is not a blank.

George
Forum: General 10-10-2015, 05:49 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
You need this... if (Pos(' ',ST) <> 0) or...

You need this...

if (Pos(' ',ST) <> 0) or (Pos(' ',ST) <> 0) or (Pos(' ',ST) <> 0) then

You still need to know which one it is so try

if (Pos(' ',ST) <> 0 then
Process for 3 blanks...
Forum: General 10-10-2015, 05:03 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
You can determine the first blank and then just...

You can determine the first blank and then just test the next character to see if it is blank or not. If yes, skip it and test the next character until you get a non-blank character. Just use the Pos...
Forum: General 10-10-2015, 02:06 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
Here's one that works... procedure...

Here's one that works...

procedure TForm1.Label4Click(Sender: TObject);
var
ST: string;
ST2: string;
X: integer;
begin
ST := 'Shy Feel Better Nice Bold';
X := Pos(' ',ST);
Forum: General 10-10-2015, 01:24 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
EXCUSE ME...A Blank is a character just like any...

EXCUSE ME...A Blank is a character just like any other character. Its ASCII code is Dec 32/Oct 040/Hex 20

George
Forum: General 10-10-2015, 02:40 AM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
The BLANK is not the delimiter?? If it is use it....

The BLANK is not the delimiter?? If it is use it.

George
Forum: General 10-10-2015, 02:18 AM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
for I = 1 to 5 do begin get the Memo value...

for I = 1 to 5 do
begin
get the Memo value for I here (I rarely use Memo, don't remember how)
case of I
1: Edit1.Text := TheValue;
2: Edit2.Text := TheValue;
3: Edit3.Text :=...
Forum: General 10-09-2015, 10:23 PM
Replies: 18
[SOLVED] Split
Views: 4,084
Posted By GeoWink
Use a Case statement... George

Use a Case statement...

George
Forum: General 10-09-2015, 09:44 PM
Replies: 14
Views: 10,958
Posted By GeoWink
Use a case statement... George

Use a case statement...

George
Forum: DB Tools 09-22-2015, 02:53 AM
Replies: 8
Views: 6,019
Posted By GeoWink
Not sure what you meant by not a normal object,...

Not sure what you meant by not a normal object, looks pretty normal to me. Also should not bother any database you have, just write using it, simple.

George
Forum: DB Tools 09-22-2015, 02:29 AM
Replies: 8
Views: 6,019
Posted By GeoWink
Whenever I run RVSystem I get a choice of Preview...

Whenever I run RVSystem I get a choice of Preview or Print. You can also do a setup so you can change printers if necessary. Otherwise it uses the default printer. See System Options.

I have some...
Forum: DB Tools 09-21-2015, 06:25 PM
Replies: 8
Views: 6,019
Posted By GeoWink
To run the print use RVSystem1.Execute; ...

To run the print use

RVSystem1.Execute;

George
Forum: DB Tools 09-21-2015, 01:46 AM
Replies: 8
Views: 6,019
Posted By GeoWink
Here is what I do... On the FormCreate Event...

Here is what I do...

On the FormCreate Event I put in the following...

DH := 'c:\YourDirectory' + 'MyDataBase.abs';
DB.Connected := False;
DB.DatabaseFileName := DH;
DB.Connected :=...
Forum: General 09-17-2015, 12:23 PM
Replies: 10
Views: 2,391
Posted By GeoWink
Well, I'm back on D2009 which works for me - I'm...

Well, I'm back on D2009 which works for me - I'm retired a long time 8-) Embarcadero wants a lot for me to update and they don't give Senior discounts - bummer. I'm using Rave 8.0.1 which also works...
Forum: General 09-16-2015, 12:20 PM
Replies: 10
Views: 2,391
Posted By GeoWink
I will check on Nevrona availability. When using...

I will check on Nevrona availability. When using Rave I just put together a High School Reunion booklet that includes graphics and text. The RVSystem component pieces I used were

PrintLeft...
Forum: General 09-16-2015, 02:39 AM
Replies: 10
Views: 2,391
Posted By GeoWink
With Rave you can print anything anywhere if you...

With Rave you can print anything anywhere if you use the RVSystem component. I makes no matter what size the page or what you need printed - you program what goes where.

George
Forum: General 09-15-2015, 07:10 PM
Replies: 10
Views: 2,391
Posted By GeoWink
I do not know if Delphi 7 has Rave with it. If it...

I do not know if Delphi 7 has Rave with it. If it does it is VERY simple to create a report. I can help you with that.

George
Forum: General 08-31-2015, 04:55 PM
Replies: 6
Views: 2,110
Posted By GeoWink
I guess I can't help you, sorry. I use Rave in an...

I guess I can't help you, sorry. I use Rave in an entirely differeny way, one in which I have control over what I print and exactly where to print it.

George
Forum: General 08-31-2015, 04:43 PM
Replies: 6
Views: 2,110
Posted By GeoWink
Where does all this information come from? is it...

Where does all this information come from? is it in a database?

George
Forum: General 08-30-2015, 01:31 PM
Replies: 6
Views: 2,110
Posted By GeoWink
I have been using Rave for decades but I always...

I have been using Rave for decades but I always use the components not the Designer. What are you trying to do? Can you describe it?

George
Forum: General 08-20-2015, 12:28 AM
Replies: 9
Views: 2,253
Posted By GeoWink
You put the Next in the wrong place... ...

You put the Next in the wrong place...

while not Eof do begin
LVU.Add(rslq.FieldByName('username').AsString);
Next;
end;

George
Forum: General 08-07-2015, 01:29 PM
Replies: 14
Views: 10,958
Posted By GeoWink
Maybe use Rave. Read in your RTF info and use...

Maybe use Rave. Read in your RTF info and use Rave to change to PDF. A possibility.

George
Forum: General 07-22-2015, 04:45 PM
Replies: 4
Views: 2,343
Posted By GeoWink
Using D2009, and Windows 7. Works fine. ...

Using D2009, and Windows 7. Works fine.

George
Forum: General 07-21-2015, 01:52 PM
Replies: 3
Views: 3,972
Posted By GeoWink
Okay, I downloaded your file and it printed out...

Okay, I downloaded your file and it printed out TWELVE pages of code. I'm sorry but I try to keep the KISS principle so that is why I use the Rave components. Maybe you could go to the Nevrona people...
Forum: General 07-21-2015, 01:15 AM
Replies: 3
Views: 3,972
Posted By GeoWink
To me that is way too much complication and why I...

To me that is way too much complication and why I use the commands to do my Rave printing. By using things like GoToXY(XPos,YPos) and PrintCenter(Variable,4.25) I can print exactly where I want to...
Forum: General 05-18-2015, 07:44 PM
Replies: 14
Views: 10,958
Posted By GeoWink
I did this using Delphi 2009 and it works just...

I did this using Delphi 2009 and it works just fine. I get single quotes.

George
Forum: General 05-17-2015, 03:37 PM
Replies: 5
Views: 2,163
Posted By GeoWink
Here is one way... Use MinutesBetween...

Here is one way...

Use MinutesBetween function

IntegerValue := MinutesBetween(NewTime,StartTime) + 1;

Hours is IntegerValue/60

Use DateUtils in Uses
Forum: General 05-04-2015, 03:05 AM
Replies: 7
Views: 2,394
Posted By GeoWink
I did that using Delphi 2009 and it works fine. ...

I did that using Delphi 2009 and it works fine.

George
Forum: VCL 04-04-2015, 07:57 PM
Replies: 12
Views: 6,165
Posted By GeoWink
I don't know how to attach files so send me an...

I don't know how to attach files so send me an email address to geowinkler(at)aol.com and I'll send the routine.

George
Forum: VCL 04-04-2015, 07:13 PM
Replies: 12
Views: 6,165
Posted By GeoWink
Okay, that is why I use my routine EXE_Dir(Tvar)....

Okay, that is why I use my routine EXE_Dir(Tvar). That routine sets the name where the EXE is regardless of what computer you use. Let me see if I can get the info together and get you that routine....
Showing results 1 to 50 of 500

 
Forum Jump

All times are GMT. The time now is 11:02 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.