| View previous topic :: View next topic |
| Author |
Message |
hidingmonkey Member
Joined: 05 Nov 2003 Posts: 1
|
Posted: 05/11/03 13:51 Post subject: arrays |
|
|
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 |
|
| Back to top |
|
 |
Kambiz Administrator

Joined: 07 Mar 2003 Posts: 255
|
Posted: 05/11/03 19:43 Post subject: |
|
|
| Code: | 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; |
|
|
| Back to top |
|
 |
|