Page 1 of 1

arrays

PostPosted: November 5th, 2003, 1:51 pm
by 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

PostPosted: November 5th, 2003, 7:43 pm
by 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;