Write a task that is necessary. The code is not completely understood. As I understand it there are 2 of the array. Need to multiply their elements and get summ? If yes, then this:
sum := 0;
for i:=1 to 80 do
begin
naspole1[i]:=pole1[i]*pole2[i];
sum := sum + naspole1[i];
writeln(naspole1[i]);
end;
writeln(sum);
nas := 0;
for i:=1 to 80 do
begin
naspole1[i]:=pole1[i]*pole2[i]+nas;
if naspole1[i] >= 10 then
begin
naspole1[i] := naspole1[i] div 10;
nas := naspole1[i] mod 10;
end;
write(naspole1[i]);
end;
Almost all that is written for Delphi important for Lazarus. Because search for information for dolphins if you can not find Lazarus. I'm trying to say that you are using an array in vain for the TImage. If you lozhish component on the form, the form is aware of this component. Accordingly, we can use it (see property Components [] and Controls []). These properties are available for all window components. The only thing you have used two-dimensional array, and these properties - a linear list. This is not a problem, you can always calculate the row and column in a linear array, knowing the width and height of the matrix. In addition, instead of the array is much more convenient to use the class TObjectList.
There is no time, but later I'll show an example of how you can use these properties to emulate the array. I think many students at this site will be useful. I myself have not a student.
Learn to read the documentation. The note says it all. I already wrote that you invented the wheel in an array. Now you again that it invents. It's time to read and not poke your finger into the sky.
way 1
procedure TSecondForm.Button1Click(Sender: TObject);
var
bmp: TBitmap;
idx: Integer;
begin
bmp := TBitmap.Create;
try
for idx := 0 to ImageList.Count - 1 do
begin
ImageList.GetBitmap(idx,bmp);
Canvas.Draw(0,idx*bmp.Height,bmp);
end;
finally
bmp.Free;
end;
end;
way 2
procedure TSecondForm.Button2Click(Sender: TObject);
var
idx: Integer;
begin
for idx := 0 to imageList.Count - 1 do
ImageList.Draw(Canvas,0,idx*ImageList.Height,idx);
end;
I would have done something like this code:
procedure TSecondForm.Button3Click(Sender: TObject);
var
bmp: TBitmap;
idx,i: Integer;
begin
bmp := TBitmap.Create;
try
i := 0;
for idx := 0 to ComponentCount-1 do
if (Components[idx] is TImage) then
begin
ImageList.GetBitmap(i,bmp);
(Components[idx] as TImage).Picture.Assign(bmp);
Inc(i);
end;
finally
bmp.Free;
end;
end;
function IntToBin( Value: integer; Digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do begin
if (value and 1) = 1 then
result[digits] := '1';
dec (digits) ;
value := value shr 1;
end;
end;
Yes, I forgot to say that this method should be used when dynamically creating dialogues. This will save memory, because memory will be allocated and freed as needed. What would it work to remove the line to automatically create a form. This can be done from the menu in two ways: 1. Open Project -> View source and remove Application.CreateForm(TOKRightDlg, OKRightDlg); 2. Open Project -> Options -> Forms and move TOKRightDlg from Auto-create form to Available form
This requires some programming experience. Therefore recommend that you do not do this, let the form is automatically created. Just a little change code:
procedure TNeuralNetworkInterface.Button2Click(Sender: TObject);
begin
with OKRightDlg do
if Execute() then
begin
NN.createNetwork(OKRightDlg.NrOfInput,OKRightDlg.NrOfOutput,OKRightDlg.useHidden);
end;
end;
Dynamic creation of forms related to professional programming. This greatly saves memory when the program lots of dialogue. It is also not very good to automatically create dialogues that are rarely used. Eg "About". This is a good style. But beware! If you forget to free memory, then get a leak! Program during the work will always spend more and more memory. Windows did not like, the computer begins to slow down.
Very simple. In the main form, you give a link to the second module. In the main module creates an event handler by pressing a button and write code like this (in the second module does not need links to the main module):
unit MainForm;
..........
uses
SecondForm;
TMainForm.Button1Clicck(Sender: TObject);
begin
with TSecondForm.Create(Self) do
try
if ShowModal = mrOK then
MyProcedure(ParamA,ParamB);
finally
Free;
end;
end;
Then it is better to use INI files. But this is not the best option.
var
i,j: integer;
begin
with TIniFile.Create(ExtractFilePath(ParamStr(0))+'Filename.txt') do
try
for i := 0 to self.ControlCount-1 do
if (self.Controls[i] is TEdit) then
WriteString(self.Controls[i].Name,'Value',(self.Controls[i] as TEdit).Text)
else
if (self.Controls[i] is TMemo) then
for j := 0 to (self.Controls[i] as TMemo).Lines.Count - 1 do
WriteString(self.Controls[i].Name,'Line'+intToStr(j),(self.Controls[i] as TMemo).Lines[j]);
finally
Free;
end;
var
i,j,idx: integer;
StrList: TStringList;
begin
with TIniFile.Create(ExtractFilePath(ParamStr(0))+'Filename.txt') do
try
for i := 0 to self.ControlCount-1 do
if (self.Controls[i] is TEdit) then
(self.Controls[i] as TEdit).Text := ReadString(self.Controls[i].Name,'Value','')
else
if (self.Controls[i] is TMemo) then
begin
StrList := TStringList.Create;
try
ReadSectionValues(self.Controls[i].Name,StrList);
(self.Controls[i] as TMemo).Clear;
for j := 0 to StrList.Count - 1 do
(self.Controls[i] as TMemo).Lines.Add(StrList.ValueFromIndex[j]);
finally
StrList.Free;
end;
end;
finally
Free;
end;
procedure TForm1.SaveButtonClick(Sender: TObject);
var
i: integer;
begin
with TStringList.Create do
try
for i := 0 to self.ControlCount-1 do
if (self.Controls[i] is TEdit) then
Add(self.Controls[i].Name+'='+(self.Controls[i] as TEdit).Text);
SaveToFile('Filename.txt');
finally
Free;
end;
end;
load:
procedure TForm1.LoadButtonClick(Sender: TObject);
var
i,idx: integer;
begin
with TStringList.Create do
try
LoadFromFile('Filename.txt');
for i := 0 to self.ControlCount-1 do
begin
idx := IndexOfName(self.Controls[i].Name);
if idx <> -1 then
(self.Controls[i] as TEdit).Text := ValueFromIndex[idx];
end;
finally
Free;
end;
end;
Bitmap to Icon: We need to create two bitmap: bitmap-mask ("AND" bitmap) and bitmap-image (XOR bitmap). Then transmit descriptors "AND" and "XOR" bitmap-s API functions CreateIconIndirect ():
procedure TForm1.Button1Click(Sender: TObject);
var
IconSizeX: integer;
IconSizeY: integer;
AndMask: TBitmap;
XOrMask: TBitmap;
IconInfo: TIconInfo;
Icon: TIcon;
begin
{Get the icon size}
IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);
{Create the "And" mask}
AndMask := TBitmap.Create;
AndMask.Monochrome := true;
AndMask.Width := IconSizeX;
AndMask.Height := IconSizeY;
{Draw on the "And" mask}
AndMask.Canvas.Brush.Color := clWhite;
AndMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
AndMask.Canvas.Brush.Color := clBlack;
AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);
{Draw as a test}
Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);
{Create the "XOr" mask}
XOrMask := TBitmap.Create;
XOrMask.Width := IconSizeX;
XOrMask.Height := IconSizeY;
{Draw on the "XOr" mask}
XOrMask.Canvas.Brush.Color := ClBlack;
XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
XOrMask.Canvas.Pen.Color := clRed;
XOrMask.Canvas.Brush.Color := clRed;
XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);
{Draw as a test}
Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);
{Create a icon}
Icon := TIcon.Create;
IconInfo.fIcon := true;
IconInfo.xHotspot := 0;
IconInfo.yHotspot := 0;
IconInfo.hbmMask := AndMask.Handle;
IconInfo.hbmColor := XOrMask.Handle;
Icon.Handle := CreateIconIndirect(IconInfo);
{Destroy the temporary bitmaps}
AndMask.Free;
XOrMask.Free;
{Draw as a test}
Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);
{Assign the application icon}
Application.Icon := Icon;
{Force a repaint}
InvalidateRect(Application.Handle, nil, true);
{Free the icon}
Icon.Free;
end;
