procedure TForm1.Button1Click(Sender: TObject);
const ASSEX = 200;
ASSEY = 100;
function ConvertX(Value: integer): integer;
begin
result := ASSEX + Value;
end;
function ConvertY(Value: integer): integer;
begin
result := ASSEY + Value;
end;
begin
Image1.Width:= 400;
Image1.Height:= 200;
Image1.Canvas.FillRect(0, 0, Image1.Width, Image1.Height);
Image1.Canvas.Line(ASSEX, 0, ASSEX, Image1.Width);
Image1.Canvas.Line(0, ASSEY, Image1.Width, ASSEY);
Image1.Canvas.MoveTo(ConvertX(-10), ConvertY(-10));
Image1.Canvas.LineTo(ConvertX(-30), ConvertY(40));
Image1.Canvas.LineTo(ConvertX(90), ConvertY(40));
Image1.Canvas.LineTo(ConvertX(130), ConvertY(-80));
end;
Tutto ok con i grafici, ora la Unit funziona come volevo. La base di lavoro inviatami da nomorelogic era ottima. Ora per completare mi manca ancora un passo che per me non è immediato.
Devo creare un programma dove inserire tutte le mie procedure già scritte. I risultati del programma, che sono solo numeri, vengono stampati su video e salvati su un file di dati. Poi allego al programma la unit grafica già scritta, il programma invia alla unit una serie di dati numerici e la unit mi mostra i grafici che mi servono.
Problemi:
1) come programma scelgo Console Application? Per i miei scopi che prevedono la massima velocità di esecuzione (alcuni programmi numerici richiedono molte ore di calcolo) meglio strutture della massima semplicità;
2) come faccio ad agganciare al programma una unit? Ho provato semplicemente ad aprirla ma poi
parte la Unit e non il programma;
3) come faccio ad inviare alla unit come input alcuni dati numerici e delle array di dati generati dal programma console? Basta inserire delle memorie globali nella Console Application e poi utilizzare queste nella Unit?
Grazie ancora per l'aiuto.