Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 201
  • Last Modified:

function to read an array of doubles into a string variable

hi there experts!!!!!


i have an array. i call it myarray(). this is an array of doubles.this is a static array.it has just two elements.

e.g myarray(0)=2,34
myarry(1)=34,5

the values of the array are x,y coordinates that represent a point which happens to be the center of a circle.

i need a function in delphi that will loop through the items of this array and will store its values in a string variable

something like this

function readarrayofdoublesinasting (const arr : array of doubles) :String;
var n : integer;
begin
for n := low(arr) to high(arr) do
//here loop through the items of the array
result := (str1,str2)
//where str1 and str2 are the x,y coordinates converted into a comma delimited string
end;
end;

urgent help needed

thanks  a lot
0
nikolaosk
Asked:
nikolaosk
  • 2
1 Solution
 
Pierre CorneliusCommented:
function readarrayofdoublesinasting (const arr : array of doubles) :String;
var n : integer;
begin
  result:= '';
  for n := low(arr) to high(arr)
    do result:= result + FloatToStr(arr[n])+',';
  SetLength(result, length(result)-1); //get rid of last comma
end;
0
 
Pierre CorneliusCommented:
type: "array of doubles"
should be "array of double"
0
 
atul_parmarCommented:
I suggest

type
  MyPoint = record
    X : Double;
    Y : Double;
  end;
  MyResult = record
    Str1, Str2 : String;
  end;

function myfunc(myarray : array of MyPoint) : MyResult;
var
  i : integer;
begin
  For i := low(myarray) to high(myarray) do
  begin
    Result.Str1 := Result.Str1 + ',' + FloatToStr(myarray[i].X);
    Result.Str2 := Result.Str2 + ',' + FloatToStr(myarray[i].Y);
  end
  SetLength(Result.Str1, length(Result.Str1)-1);
  SetLength(Result.Str2, length(Result.Str2)-1);
end;
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now