Перевод с Pascal на Java

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, StdCtrls,
  Grids, Classes, Controls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Button4: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Button5: TButton;
    GroupBox2: TGroupBox;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Button6: TButton;
    Memo1: TMemo;
    Button7: TButton;
    Edit10: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure add_to_sp(data,i,j:integer);
    procedure clear_stringgrid();
  end;
 
type
 
sp_r_matrix=^TSp_matrix;
 
TSp_matrix = record
  data:integer;
  i:integer;
  j:integer;
  next:sp_r_matrix;
  prev:sp_r_matrix;
end;
 
 
var
  Form1: TForm1;
  inp, head, last:sp_r_matrix;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.add_to_sp(data, i, j:integer);  //add
begin
  new(inp);
  inp.data:=data;
  inp.i:=i;
  inp.j:=j;
  if head=nil then
    begin
      inp.next:=nil;
      inp.prev:=nil;
      head:=inp;
      last:=inp;
    end
    else
    begin
      inp.next:=nil;
      inp.prev:=last;
      last.next:=inp;
      last:=inp;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.ColCount:=StrToInt(Edit1.Text);
  StringGrid1.RowCount:=StrToInt(Edit1.Text);
  clear_stringgrid;
end;
 
procedure TForm1.Button2Click(Sender: TObject);  //add_to_sp
var i,j:integer;
    Fr, t1, t2 : Int64;
    Dt : Extended;
begin
  QueryPerformanceFrequency(Fr);
  for i := 1 to StringGrid1.RowCount-1 do
    for j := 1 to StringGrid1.ColCount-1 do
    begin
      if strtoint(StringGrid1.Cells[j,i])<>0 then
      begin
      QueryPerformanceCounter(t1);
      add_to_sp(strtoint(StringGrid1.Cells[j,i]),i,j);
      QueryPerformanceCounter(t2);
      Dt := (t2 - t1);
      memo1.Lines.Add(floattostr(Dt));
      end;
    end;
end;
 
procedure TForm1.Button3Click(Sender: TObject); //add_one_to_sp
var data,i,j:integer;
begin
  data:=strtoint(Edit2.Text);
  i:=strtoint(Edit3.Text);
  j:=strtoint(Edit4.Text);
  add_to_sp(data,i,j);
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);  //show
var ptr:sp_r_matrix;
    i,j:integer;
    Fr, t1, t2 : Int64;
    Dt : Extended;
begin
  clear_stringgrid;
  QueryPerformanceFrequency(Fr);
  QueryPerformanceCounter(t1);
  ptr:=head;
  if ptr<>nil then
  begin
 
  while ptr<>nil do
    begin
      StringGrid1.Cells[ptr.j,ptr.i]:=inttostr(ptr.data);
      ptr:=ptr.next;
    end;
  end;
  QueryPerformanceCounter(t2);
  Dt := (t2 - t1);
  memo1.Lines.Add(floattostr(Dt));
end;
 
procedure TForm1.Button5Click(Sender: TObject); //del
var ptr:sp_r_matrix;
    i,j:integer;
    Fr, t1, t2 : Int64;
    Dt : Extended;
begin
  i:=strtoint(edit5.Text);
  j:=strtoint(edit6.Text);
 
  QueryPerformanceFrequency(Fr);
  QueryPerformanceCounter(t1);
 
  ptr:=head;
  while ptr<>nil do
  begin
    if (ptr.i=i) and (ptr.j=j) then
      begin
        if (ptr=head) and not((ptr.next=nil) and (ptr.prev=nil)) then
        begin
          head:=ptr.next;
          ptr.next.prev:=nil;
        end else
          if (ptr=last) and not((ptr.next=nil) and (ptr.prev=nil)) then
          begin
            last:=ptr.prev;
            ptr.prev.next:=nil
          end else
              if (ptr.next=nil) and (ptr.prev=nil) then
              begin
                head:=nil;
                last:=nil;
              end
              else
                  begin
                    ptr.prev.next:=ptr.next;
                    ptr.next.prev:=ptr.prev;
                  end;
         dispose(ptr);
      end;
      ptr:=ptr.next;
  end;
 
  QueryPerformanceCounter(t2);
  Dt := (t2 - t1);
  memo1.Lines.Add(floattostr(Dt));
 
end;
 
procedure TForm1.Button6Click(Sender: TObject); //appeal
var ptr:sp_r_matrix;
    data,i,j:integer;
    check_ptr:boolean;
    Fr, t1, t2 : Int64;
    Dt : Extended;
begin
  check_ptr:=false;
  if edit7.Text='' then
  begin
    QueryPerformanceFrequency(Fr);
    QueryPerformanceCounter(t1);
 
    ptr:=head;
    i:=strtoint(edit8.Text);
    j:=strtoint(edit9.Text);
    while (ptr<>nil) and not(check_ptr) do
    begin
      if (ptr.i=i) and (ptr.j=j) then
      begin
        StringGrid1.Selection := TGridRect(rect(j, i, j, i));
        check_ptr:=true;
      end;
      ptr:=ptr.next;
    end;
  end
  else
  if (edit8.Text='') and (edit9.Text='')  then
  begin
    ptr:=head;
    data:=strtoint(edit7.Text);
    while (ptr<>nil) and not(check_ptr) do
    begin
      if (ptr.data=data) then
      begin
        StringGrid1.Selection := TGridRect(rect(ptr.j, ptr.i, ptr.j, ptr.i));
        check_ptr:=true;
      end;
      ptr:=ptr.next;  
    end;
  end;
 
  QueryPerformanceCounter(t2);
  Dt := (t2 - t1);
  memo1.Lines.Add(floattostr(Dt));
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var i:integer;
    Fr, t1, t2 : Int64;
    Dt : Extended;
begin
  for i := 1 to strtoint(edit10.Text) do
  begin
    QueryPerformanceFrequency(Fr);
    QueryPerformanceCounter(t1);
 
    add_to_sp(i,i,i);
    QueryPerformanceCounter(t2);
    Dt := (t2 - t1);
    memo1.Lines.Add(floattostr(Dt));
  end;
end;
 
procedure TForm1.clear_stringgrid;
var i,j,k:integer;
begin
  StringGrid1.FixedColor:=$4F7524;
  k:=0;
  for i := 0 to StringGrid1.RowCount-1 do
    begin
    StringGrid1.Cells[i,0]:=inttostr(k);
    StringGrid1.Cells[0,i]:=inttostr(k);
    inc(k);
    end;
 
  for i := 1 to StringGrid1.RowCount-1 do
    for j := 1 to StringGrid1.ColCount-1 do
      StringGrid1.Cells[j,i]:=inttostr(0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  head:=nil;
  last:=nil;
end;
 
end.