i tried this with no prevail
writeln(Tpointtostr(Color[I]));
any help please
i tried this with no prevail
writeln(Tpointtostr(Color[I]));
any help please
SCAR Code:WriteLn(IntToStr(TPA[I].X) + ', ' + IntToStr(TPA[I].Y));
If you have the latest version of SCAR, you don't need to put IntToStr.
Last edited by Rich; 09-25-2009 at 06:35 PM.
<3
Originally Posted by Eminem
SCAR Code:function TPointToStr(t: TPoint): String;
begin
Result := '(' + IntToStr(t.x) + ', ' + IntToStr(t.y) + ')';
end;
procedure WriteTPA(t: TPointArray);
var
i, h: Integer;
begin
h := High(t);
for i := 0 to h do
Writeln(IntToStr(i) + ' ' + TPointToStr(t[i]));
end;
There you have it![]()
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
There are currently 1 users browsing this thread. (0 members and 1 guests)