mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 06:32:22 -05:00
212e41ecd1
Made a ToStr that accepts *ANY* data type. See stringtest.mufa git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@426 3f818213-9676-44b0-a9b4-5e4c4e03d09d
40 lines
737 B
Plaintext
40 lines
737 B
Plaintext
program new;
|
|
type
|
|
LetsDoThis = record
|
|
str : string;
|
|
x,y : integer;
|
|
end;
|
|
LetsDoThis2 = record
|
|
str : string;
|
|
pt : TPoint;
|
|
end;
|
|
Yeah = array of LetsDoThis2;
|
|
ArrThis = array of yeah;
|
|
|
|
|
|
var
|
|
x : LetsDoThis;
|
|
y : arrthis;
|
|
j : TForm;
|
|
i,ii : integer;
|
|
begin
|
|
x.str := 'Testmebitch';
|
|
x.x := 500;
|
|
x.y := -900;
|
|
Writeln(x);
|
|
SetLength(y,2);
|
|
for i := 0 to high(y) do
|
|
begin;
|
|
setlength(y[i],2);
|
|
for ii := 0 to high(y[i]) do
|
|
begin;
|
|
y[i][ii].pt := Point(i*5,-random(9000));
|
|
y[i][ii].str := format('[%d][%d]=%s',[i,ii,tostr(y[i][ii].pt)]);
|
|
end;
|
|
end;
|
|
Writeln(y);
|
|
Writeln(TPointArray([Point(5,5),Point(20,1337),point(1,2)]));
|
|
J := TForm.Create(nil);
|
|
Writeln(j.canvas);
|
|
end.
|