AddDelphi Tips
Tips 21-30 of 94
Go to << Prior 1 2 3 4 5 6 7 8 9 10 Next >> page 
to extract the plain text from html string - 07 April, 2004 - Mike Shkolnik

Today I want to publish small procedure that extract the plain text from html-formatted string

function StripHTMLTags(const strHTML: string): string;
var
P: PChar;
InTag: Boolean;
i,...

to read the proxy information - 07 April, 2004 - Mike Shkolnik

Friends,

most tasks that works with internet, requires to read the current proxy settings from computer before connect to remote server.

Today I want to show two way to read this information.
1. to use...

Rotate a Point in 3D around another point in 3D - 28 March, 2004 - Arash Partow

Procedure Rotate(Rx,Ry,Rz:Double; x,y,z,ox,oy,oz:Double; Var Nx,Ny,Nz:Double);
Begin
Rotate(Rx,Ry,Rz,x-ox,y-oy,z-oz,Nx,Ny,Nz);
Nx := Nx+ox;
Ny := Ny+oy;
Nz := Nz+oz;
End;
(* End Of *)

Rotate a Point in 3D - 28 March, 2004 - Arash Partow

Procedure Rotate(Rx,Ry,Rz:Double; x,y,z:Double; Var Nx,Ny,Nz:Double);
Var TempX : Double;
TempY : Double;
TempZ : Double;
SinX : Double;
SinY : Double;
SinZ : Double;
...

Rotate a Point in 2D around another 2D Point - 28 March, 2004 - Arash Partow

Procedure Rotate(RotAng:Double; x,y,ox,oy:Double; Var Nx,Ny:Double);
Begin
Rotate(RotAng,x-ox,y-oy,Nx,Ny);
Nx := Nx+ox;
Ny := Ny+oy;
End;
(* End Of Rotate Cartesian Point About Origin *)

...

Rotate a Point in 2D - 28 March, 2004 - Arash Partow

Procedure Rotate(RotAng:Double; x,y:Double; Var Nx,Ny:Double);
Var SinVal:Double;
CosVal:Double;
Begin
RotAng := RotAng*PIDiv180;
SinVal := Sin(RotAng);
CosVal := Cos(RotAng);
Nx :=...

Determine the Circumcenter of a triangle - 28 March, 2004 - Arash Partow

Procedure Circumcenter(x1,y1,x2,y2,x3,y3:Double; Var Px,Py:Double);
Var A,C,B,D,E,F,G:Double;
Begin
A := x2 - x1;
B := y2 - y1;
C := x3 - x1;
D := y3 - y1;
E := A*(x1+x2)+B*(y1+y3);
F...

Determine the Incenter of a triangle - 28 March, 2004 - Arash Partow

Procedure Incenter(x1,y1,x2,y2,x3,y3:Double; Var Px,Py:Double);
Var
Perim : Double;
Side12 : Double;
Side23 : Double;
Side31 : Double;
Begin
Side12 := Distance(x1,y1,x2,y2);
Side23 :=...

Determine 3rd Point of an Equilateral triangle from two other points - 28 March, 2004 - Arash Partow

Procedure CreateEquilateralTriangle(x1,y1,x2,y2:Double; Var x3,y3:Double);
Const Sin60 = 0.86602540378443864676372317075294;
Const Cos60 = 0.50000000000000000000000000000000;
Begin
{ Translate for x1,y1 to be origin...

Determine if a 2D Point exists within a triangle - 28 March, 2004 - Arash Partow

Function PntInTriangle(Px,Py,x1,y1,x2,y2,x3,y3:Double):Boolean;
Var Or1, Or2, Or3: Double;
Begin
Or1 := Orientation(x1,y1,x2,y2,Px,Py);
Or2 := Orientation(x2,y2,x3,y3,Px,Py);
Or3 :=...

Tips 21-30 of 94
Go to << Prior 1 2 3 4 5 6 7 8 9 10 Next >> page 
Latest News
Submit News Form Past News
Latest Forum Entries