@prezemo_21:

- image1.width could it be 0?
- the argument for arccos.. did you check it is in the valid range? (what is i?)

Try seperating your code out a bit more to narrow down what the source of the problem is. i.e

aValue := Image1.Height div 2;
aValue := 100*cos(ArcCos(i*2*pi/Image1.Width)) ;
aValue := Round(aValue);

I've just found a problem with RoundTo and that if you insert a large number (RoundTo(xxxxxxxxx,-10) it will give a invalid floating point operation exception, if you follow i through it turns out that gives this exception on Round as its trying to round a value that is greater then the max Int64 type;

program frequency (input, output);
{\ THIS CODE IS MEANT TO COUNT THE FREQUENCY OF EACH CHARACTER IN A FILE'S DOCUMENT\}
uses crt;
var
char_ascii : array [1..256] of integer;
file_name : text;
i : integer;
ch : char;
begin
clrscr;
i:= 0;
char_ascii [256] := 0;
assign ( file_name, 'f:\values1.txt');
reset (file_name);
while not eof (file_name) do
begin
readln (ch);
char_ascii [ord(ch)] := char_ascii [ord(ch)] + 1;
close (file_name);
end;
for i:= 1 to 256 do
writeln (ch,',' , i , ',' , char_ascii [ord(i)]);
readln;
end.


I M PISSD. THE COMPUTER KEEPS TELLING ME THAT THE FILE IS NOT OPEN FOR INPUT IF THERE'S SOMETHING IN THE FILE. BUT IF THERES NOTHING IN IT, THE PROGRAM WORKS

Hi i am getting a Error I/O Error 53 while reading a file from a Network Path.Can anybody help y i am getting such a error

Hi i am getting a Error I/O Error 53 while reading a file from a Network Path.Can anybody help y i am getting such a error

echman4u

Use readln(file_name, ch) and not just readln(ch) cause you are trying to read from the console that way!

As for invalid floating point I guess it happens when you're using too small real numbers and try to round them or do a Sqrt(-1);

MAJOR problem
Ive got a problem with saving my program
everytime i click on the save button it comes up with 'Stream write error'
I really need help on this its for an assignment for school and its already overdue
someone plzzzzz help!!!

The stream write error is either (1) invalid file name structure, (2) destination is full or what you are saving is larger than diskspace available.

assign ( file_name, 'f:\values1.txt'); reset (file_name); while not eof (file_name) do begin readln (ch); char_ascii [ord(ch)] := char_ascii [ord(ch)] + 1; close (file_name); end;

And nobody sees this all the time?!
This obvious, but still hidden for most ppl!

Anyway,
1. change 'readln (ch);' to 'readln (file_name, ch); '
2. move the 'close (file_name);' outside the while-loop
3. bad variable naming; 'file_name' is probably a File or TextFile type
instead of the actual name

hey guys,

I have the problem with database file. I want to know, how make a function to know file database still access by another programs. And the result on type boolean. Ok, gays thaks a lot.

hi
i want to ask you about how to deal with 'floating point overflow' error.
thx

Thank you very much!
http://www.mofun.cc