Solved

# How to convert a string to double

Posted on 1998-07-13
336 Views
i have a problem in converting a string from a PChar type to a double type? may you suggest a method to perform this easy task?
0
Question by:smile_tbw
• 5
• 4

Expert Comment

ID: 1357838
Try this:
var d:double;
p:PChar;
begin
d:=1.09;
p:=PChar(@d);
end;

If you want convert a string to an UNICODE string (array of double byte char), then use
WideCharToMultiByte() and MultiByteToWideChar().

The WideCharToMultiByte function maps a wide-character string to a new character string. The new character string is not necessarily from a multibyte character set.

The MultiByteToWideChar function maps a character string to a wide-character (Unicode) string. The character string mapped by this function is not necessarily from a multibyte character set.
0

LVL 8

Expert Comment

ID: 1357839
Hi smile_tbw,

?

Is this what you mean :

var TextPChar : PChar;
Number : Double;
begin
TextPChar := '5000,4';
Number := StrToFloat(TextPChar);
end;

Zif.
0

LVL 8

Expert Comment

ID: 1357840
Well, I was too late again... but bengore, isn't the answer supposed to be the other way?
0

Author Comment

ID: 1357841

In addition, my string is ended with a CR(\$D) and LF(£A). How to avoid it because it can't convert by using StrToFloat. Thanks.
0

Author Comment

ID: 1357842
I'm sorry, bengore. you answer seem to be reversed to my question.
0

LVL 8

Accepted Solution

ZifNab earned 60 total points
ID: 1357843
Hi smile_tbw. Just remove the two last chars from the string, use copy or delete to do it :

var TextPChar : PChar;
Number : Double;
begin
TextPChar := '5000,4'+char(\$D)+char(\$A);
showmessage('with CR and LF :'+TextPChar);
showmessage('without : '+Copy(TextPChar,1,Length(TextPChar)-2));
Number := StrToFloat(Copy(TextPChar,1,Length(TextPChar)-2));
ShowMessage('GoodLuck!');
end;

Regards, Zif.
Have a nice day.
0

Author Comment

ID: 1357844
hi Zif,

In addition my string is ended with a CR(\$D) and LF(\$A). How to avoid it because it can't convert by using StrToFloat

Thnaks.

0

Author Comment

ID: 1357845
hey, Zif,
sorry about the point was accidentally reduced to 6. Actually i want to increase it to 60. BUT.. .. . .. Sorry again. Hope you don't mind.

Thank you very much
0

LVL 8

Expert Comment

ID: 1357846
Hi smile_tbw,

look at answer I gave you... I remove the two last chars (namely CR and LF) from the string before I use StrToFloat.

this is the function : Copy(TextPChar,1,Length(TextPChar)-2)

Ok,I just copy a part of the total string (all the char, without the last 2), but maybe it's also possible with other functions, e.g. Delete ...

The beauty of the copy is that you can still use the total string for futher processing.

Just copy my example and you got it.

Zif.
0

LVL 8

Expert Comment

ID: 1357847
Smile_tbw,

nope don't mind, only don't know if you can reduce the points.

->hi Zif,

In addition my string is ended with a CR(\$D) and LF(\$A). How to avoid it because it can't convert by using StrToFloat

Thnaks.

I think you found it in the answer I gave you :-), otherwise you wouldn't accept my answer so soon.

ZiF.

0

## Featured Post

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…