arrays

[hidingmonkey]

i want to read 1 2 3 4 or something of that format, four integers with a space inbetween from a text file. Once read i need to store each integer into an array so that it can be used later. How would i do this as i have tried many different ways and none seem to work. So for example
myArray[1]=1
myArray[2]=2
etc but it ignores the spaces

[Kambiz]

Code: Select all

var
  YourArray: array[1..4] of Integer;
  I: Integer;
  F: TextFile;
begin
  AssignFile(F, 'YourFile.foo');
  Reset(F);
  for I := Low(YourArray) to High(YourArray) do
    Read(F, YourArray[I]);
  CloseFile(F);
end;