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.
{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.