I'm progress

[Neo]

Primero que nada debo agradecerles a todos por ayuda y seguerencias con mi anterior Hilo "Como realizo este programa"

He aprendido mucho en estos ultimos dias... ahh por cierto, ya solucione en problema, osea realize el programa. Ahora, este es un nuevo programa... me gustaria opiniones.

See U. :cool:


{Realize un programa que dado un radio de una Esfera determine el % de puntos (cargado de una Base de Datos) que estan es dicha esfera (Los puntos de la superficie no cuentan).}

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
directorylistbox1.drive:=driveComboBox1.drive;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox1.drive:=DirectoryListBox1.drive;
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
Var
coordenadas:string;
A:Textfile;
I,N,X,Y,Z,m,R:byte;
D:Real;

begin
label1.visible:=true;
label1.caption:=FileListBox1.FileName;

R:=strtofloat(Edit1.text);
Coordenadas:=FileListBox1.FileName;
AssingFile(A,coordenadas);
reset(A);
readln(A);

For I:=1 to N do

Begin
readln(A,X);
readln(A,Y);
readln(A,Z);

D:= sqrt(X*X+Y*Y+Z*Z);

if D<R then
m=m+1

else
m=m;
End;

Label3.visible:=true;
Label3.caption:='Porcentaje' + floattostr ((m/N)*100) + '%'


end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
R:byte;


begin
R:=strtofloat(Edit1.text)
If key=char(13) then

Begin
if R>0 then
Begin
DirectoryBoxList1.Visible:=True;
FileListBox1.Visible:=True;
DriveComboBox1:=True;
End
Else

end;

end.

[andres1569]

Ojeándolo un poco por encima, veo un bucle peligroso, aunque si dices que te funciona... :

For I:=1 to N do ...

La variable N no logro encontrar dónde la asignas, se supone que contiene el número de números almacenados dividido entre 3; puesto que estás leyendo el archivo de disco, deberías saber en primer lugar cuántos registros vas a leer.

[Neo]

Bueno, con lo del bucle en "n" esta en el archivo a Leer.