Błąd Unsatisfied forward of external declaration POMOCY [delphi]

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

Witam, oto kod mojego programu:

Kopiuj

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    ListBox2: TListBox;
    Button1: TButton;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Edit5: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label9: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    ListBox3: TListBox;
    Label16: TLabel;
    ListBox4: TListBox;
    Label17: TLabel;
    Label18: TLabel;
    ListBox5: TListBox;
    Label7: TLabel;
    ListBox6: TListBox;
    Label8: TLabel;
    Label19: TLabel;
    ListBox7: TListBox;
    Label20: TLabel;
    Label21: TLabel;
    ListBox8: TListBox;
    CheckBox6: TCheckBox;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button2: TButton;
    Edit16: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit17: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Label22: TLabel;
    Button16: TButton;
    Button18: TButton;
    Label23: TLabel;
    Button17: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    RadioButton2: TRadioButton;
    MainMenu1: TMainMenu;
    da1: TMenuItem;
    Szukaj1: TMenuItem;
    Pomoc1: TMenuItem;
    ImiiNazwisko1: TMenuItem;
    Adreskorespondencji1: TMenuItem;
    Unazwafirmy1: TMenuItem;
    Okresubezpieczenia1: TMenuItem;
    Skadkapatnajednorazowo1: TMenuItem;
    erminpatno1: TMenuItem;
    Nrpolisy1: TMenuItem;
    Przedmiotubezpieczenia1: TMenuItem;
    Zaznaczenie1: TMenuItem;
    Usu1: TMenuItem;
    Pozycja1: TMenuItem;
    Dodaj1: TMenuItem;
    Usu2: TMenuItem;
    Edytuj1: TMenuItem;
    Baza1: TMenuItem;
    Zapisz1: TMenuItem;
    Wczytaj1: TMenuItem;
    Edytuj2: TMenuItem;
    Ustawinia1: TMenuItem;
    Bazadanych1: TMenuItem;
    Button30: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Enter(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure RadioButton1DblClick(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure ImiiNazwisko1Click(Sender: TObject);
    procedure Adreskorespondencji1Click(Sender: TObject);
    procedure Unazwafirmy1Click(Sender: TObject);
    procedure Okresubezpieczenia1Click(Sender: TObject);
    procedure Skadkapatnajednorazowo1Click(Sender: TObject);
    procedure erminpatno1Click(Sender: TObject);
    procedure Nrpolisy1Click(Sender: TObject);
    procedure Przedmiotubezpieczenia1Click(Sender: TObject);
    procedure Usu1Click(Sender: TObject);
    procedure Bazadanych1Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    LastSearch: string;
      LastIndex: integer;
  public
      StringList : TStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Click;
ListBox1.Items.Add(Edit1.Text);
if Edit3.Text > '' then ListBox1.Items.Add(Edit3.Text);
ListBox2.Items.Add(Edit5.Text);
  ListBox3.Items.Add(Combobox1.Text);
  If checkbox1.Checked = true then ListBox4.Items.Add(Checkbox1.Caption);
  If checkbox2.Checked = true then ListBox4.Items.Add(Checkbox2.Caption);
  If checkbox3.Checked = true then ListBox4.Items.Add(Checkbox3.Caption);
  If checkbox4.Checked = true then ListBox4.Items.Add(Checkbox4.Caption);
  If checkbox5.Checked = true then ListBox4.Items.Add(Checkbox5.Caption);
  If checkbox6.Checked = true then ListBox4.Items.Add(Checkbox6.Caption);
   ListBox5.Items.Add(Edit6.Text);

 ListBox6.Items.Add('od '+Edit7.Text+' do '+Edit8.Text);
 if RadioButton1.Checked = true then ListBox7.Items.Add(Radiobutton1.Caption);
 if RadioButton2.Checked = true then ListBox7.Items.Add(Radiobutton2.Caption+
 ', termin: '+edit9.Text+
 ', wysokosc: '+edit10.Text+' zł');
       ListBox8.Items.Add(Edit11.Text);
        if edit3.Text >'' then
               ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          if edit16.Text = '1' then ListBox4.Items.Add('');

          if edit16.text = '3' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

           if edit16.text = '4' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

          if edit16.text = '5' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

           ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;


          if edit16.text = '6' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

           ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

            ListBox5.Items.Add('');
             ListBox6.Items.Add('');
              ListBox7.Items.Add('');
               ListBox8.Items.Add('');

               

        ListBox1.Items.Add('-----------------------------------------');
         ListBox2.Items.Add('-----------------------------------------');
          ListBox3.Items.Add('-----------------------------------------');
           ListBox4.Items.Add('-----------------------------------------');
            ListBox5.Items.Add('-----------------------------------------');
             ListBox6.Items.Add('-----------------------------------------');
              ListBox7.Items.Add('-----------------------------------------');
               ListBox8.Items.Add('-----------------------------------------');

               

     Button10.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  ListBox1.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox1.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox2.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox2.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox3.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox3.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
    ListBox4.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox4.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
   ListBox5.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox5.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
   ListBox6.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox6.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox7.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox7.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox8.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox8.Handle, LB_SETHORIZONTALEXTENT, 400, 0);



end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';


       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;


procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

 X := A+B+C+D+E+F;

 edit16.Text :=FloatToStr(X)
end;

end.



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';


       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;

procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

 X := A+B+C+D+E+F;

 edit16.Text :=FloatToStr(X)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Button12.Click;
Button7.Click;
Button8.Click;
Button9.Click;
Button13.Click;
end;
procedure TForm1.Button4Click(Sender: TObject);
   var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.WriteComponent(Listbox1);
  MS.WriteComponent(Listbox2);
  MS.WriteComponent(Listbox3);
  MS.WriteComponent(Listbox4);
  MS.WriteComponent(Listbox5);
  MS.WriteComponent(Listbox6);
  MS.WriteComponent(Listbox7);
  MS.SaveToFile('\baza.bin');
  MS.Free;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('\baza.bin');
  MS.ReadComponent(listbox1);
  MS.ReadComponent(listbox2);
  MS.ReadComponent(listbox3);
  MS.ReadComponent(listbox4);
  MS.ReadComponent(listbox5);
  MS.ReadComponent(listbox6);
  MS.ReadComponent(listbox7);
  MS.ReadComponent(listbox8);
  MS.Free;
end;


procedure TForm1.Button6Enter(Sender: TObject);
begin
        ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if ListBox1.Items.IndexOf (Edit1.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit1.text);

if ListBox1.Items.IndexOf (Edit3.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit3.text);

if ListBox2.Items.IndexOf (Edit5.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit5.text);

if ListBox3.Items.IndexOf (Combobox1.Text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(Combobox1.Text);

if ListBox4.Items.IndexOf (Checkbox1.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox1.Caption);

if ListBox4.Items.IndexOf (Checkbox2.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox2.Caption);

if ListBox4.Items.IndexOf (Checkbox3.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox3.Caption);

if ListBox4.Items.IndexOf (Checkbox4.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox4.Caption);

if ListBox4.Items.IndexOf (Checkbox5.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox5.Caption);

if ListBox4.Items.IndexOf (Checkbox6.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox6.Caption);

if ListBox5.Items.IndexOf (Edit6.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit6.text);


if ListBox7.Items.IndexOf (Edit9.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit9.text);

if ListBox7.Items.IndexOf (Edit10.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit10.text);

if ListBox8.Items.IndexOf (Edit11.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit11.text);

if ListBox7.Items.IndexOf (Radiobutton1.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(Radiobutton1.Caption);
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
    if ListBox1.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox1.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox1.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox1.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox1.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox1.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox1.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox1.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox1.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox1.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox1.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox1.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox1.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox1.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox1.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox1.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox1.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox1.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox1.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox1.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox1.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox1.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox1.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox1.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox1.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox1.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox1.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox1.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox1.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox1.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox1.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox1.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox1.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox1.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox1.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox1.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox1.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox1.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox1.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox1.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox1.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox1.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox1.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox1.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox1.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox1.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox1.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox1.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox1.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox1.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox1.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox2.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox2.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox2.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox2.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox2.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox2.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox2.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox2.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox2.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox2.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox2.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox2.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox2.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox2.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox2.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox2.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox2.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox2.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox2.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox2.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox2.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox2.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox2.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox2.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox2.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox2.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox2.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox2.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox2.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox2.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox2.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox2.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox2.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox2.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox2.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox2.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox2.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox2.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox2.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox2.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox2.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox2.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox2.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox2.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox2.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox2.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox2.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox2.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox2.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox2.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox2.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox3.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox3.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox3.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox3.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox3.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox3.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox3.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox3.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox3.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox3.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox3.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox3.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox3.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox3.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox3.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox3.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox3.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox3.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox3.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox3.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox3.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox3.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox3.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox3.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox3.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox3.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox3.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox3.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox3.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox3.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox3.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox3.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox3.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox3.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox3.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox3.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox3.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox3.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox3.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox3.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox3.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox3.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox3.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox3.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox3.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox3.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox3.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox3.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox3.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox3.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox3.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox4.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox4.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox4.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox4.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox4.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox4.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox4.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox4.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox4.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox4.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox4.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox4.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox4.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox4.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox4.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox4.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox4.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox4.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox4.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox4.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox4.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox4.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox4.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox4.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox4.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox4.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox4.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox4.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox4.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox4.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox4.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox4.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox4.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox4.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox4.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox4.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox4.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox4.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox4.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox4.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox4.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox4.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox4.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox4.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox4.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox4.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox4.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox4.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox4.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox4.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox4.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox5.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox5.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox5.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox5.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox5.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox5.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox5.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox5.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox5.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox5.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox5.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox5.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox5.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox5.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox5.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox5.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox5.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox5.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox5.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox5.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox5.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox5.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox5.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox5.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox5.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox5.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox5.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox5.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox5.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox5.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox5.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox5.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox5.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox5.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox5.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox5.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox5.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox5.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox5.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox5.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox5.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox5.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox5.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox5.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox5.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox5.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox5.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox5.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox5.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox5.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox5.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox6.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox6.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox6.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox6.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox6.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox6.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox6.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox6.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox6.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox6.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox6.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox6.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox6.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox6.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox6.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox6.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox6.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox6.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox6.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox6.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox6.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox6.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox6.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox6.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox6.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox6.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox6.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox6.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox6.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox6.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox6.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox6.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox6.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox6.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox6.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox6.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox6.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox6.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox6.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox6.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox6.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox6.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox6.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox6.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox6.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox6.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox6.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox6.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox6.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox6.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox6.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox7.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox7.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox7.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox7.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox7.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox7.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox7.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox7.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox7.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox7.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox7.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox7.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox7.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox7.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox7.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox7.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox7.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox7.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox7.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox7.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox7.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox7.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox7.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox7.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox7.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox7.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox7.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox7.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox7.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox7.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox7.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox7.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox7.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox7.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox7.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox7.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox7.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox7.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox7.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox7.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox7.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox7.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox7.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox7.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox7.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox7.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox7.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox7.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox7.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox7.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox8.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox8.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox8.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox8.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox8.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox8.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox8.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox8.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox8.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox8.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox8.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox8.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox8.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox8.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox8.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox8.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox8.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox8.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox8.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox8.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox8.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox8.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox8.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox8.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox8.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox8.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox8.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox8.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox8.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox8.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox8.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox8.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox8.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox8.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox8.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox8.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox8.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox8.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox8.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox8.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox8.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox8.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox8.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox8.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox8.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox8.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox8.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox8.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox8.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox8.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox8.ItemIndex = 50 then Edit17.Text:= '50'
else label22.Caption := 'Nie znaleziono';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if edit17.Text > '-1' then begin
listbox1.itemindex :=(Strtoint(edit17.text));
listbox2.itemindex :=(Strtoint(edit17.text));
listbox3.itemindex :=(Strtoint(edit17.text));
listbox4.itemindex :=(Strtoint(edit17.text));
listbox5.itemindex :=(Strtoint(edit17.text));
listbox6.itemindex :=(Strtoint(edit17.text));
listbox7.itemindex :=(Strtoint(edit17.text));
listbox8.itemindex :=(Strtoint(edit17.text));
end;
end;

procedure TForm1.RadioButton1DblClick(Sender: TObject);
begin
RadioButton1.Checked := false;
end;

procedure TForm1.Button10Click(Sender: TObject);
   begin
   Edit1.Text :='';
   Edit3.Text :='';
   Edit5.Text :='';
   Edit6.Text :='';
   Edit7.Text :='';
   Edit8.Text :='';
   Edit9.Text :='';
   Edit10.Text :='';
   Edit11.Text :='';
   Edit12.Text :='';

   Checkbox1.Checked := false;
   Checkbox2.Checked := false;
   Checkbox3.Checked := false;
   Checkbox4.Checked := false;
   Checkbox5.Checked := false;
   Checkbox6.Checked := false;

   RadioButton1.Checked := false;
   RadioButton2.Checked := false;

   Combobox1.Itemindex := 0;
   end;
procedure TForm1.Button11Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox6.Items.Count-1 do
 begin
   if pos(lowercase(edit8.text),lowercase(ListBox6.Items[i]))>0 then
   begin
    ListBox6.ItemIndex:=i;
     ////break
   end;
 end;
 end;


procedure TForm1.Button12Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit8.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit8.Text) then LastSearch := LowerCase(Edit8.Text);


for i := Start to ListBox6.Items.Count - 1 do
begin
if pos(LowerCase(Edit8.text), LowerCase(ListBox6.Items[i])) > 0 then
  begin
   ListBox6.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button13Click(Sender: TObject);
begin
listbox1.itemindex := -1;
listbox2.itemindex := -1;
listbox3.itemindex := -1;
listbox4.itemindex := -1;
listbox5.itemindex := -1;
listbox6.itemindex := -1;
listbox7.itemindex := -1;
listbox8.itemindex := -1;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

button12.Click;
button8.Click;
Button9.Click
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
if label22.Caption = 'Nie znaleziono'
 then begin LastSearch := '0';
 label22.Caption := ''
end;

end;
procedure TForm1.Button16Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit1.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit1.Text) then LastSearch := LowerCase(Edit1.Text);


for i := Start to ListBox1.Items.Count - 1 do
begin
if pos(LowerCase(Edit1.text), LowerCase(ListBox1.Items[i])) > 0 then
  begin
   ListBox1.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button16.Click;
Button8.Click;
Button9.Click;

end;
procedure TForm1.Button17Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit5.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit5.Text) then LastSearch := LowerCase(Edit5.Text);


for i := Start to ListBox2.Items.Count - 1 do
begin
if pos(LowerCase(Edit5.text), LowerCase(ListBox2.Items[i])) > 0 then
  begin
   ListBox2.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button17.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button20Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Combobox1.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Combobox1.Text) then LastSearch := LowerCase(Combobox1.Text);


for i := Start to ListBox3.Items.Count - 1 do
begin
if pos(LowerCase(Combobox1.Text), LowerCase(ListBox3.Items[i])) > 0 then
  begin
   ListBox3.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button20.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button23Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit6.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit6.Text) then LastSearch := LowerCase(Edit6.Text);


for i := Start to ListBox5.Items.Count - 1 do
begin
if pos(LowerCase(Edit6.Text), LowerCase(ListBox5.Items[i])) > 0 then
  begin
   ListBox5.ItemIndex := i;
   LastIndex := i;

end;
end;

end;
procedure TForm1.Button22Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button23.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button24Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(RadioButton1.Caption) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(RadioButton1.Caption) then LastSearch := LowerCase(RadioButton1.Caption);


for i := Start to ListBox7.Items.Count - 1 do
begin
if pos(LowerCase(RadioButton1.Caption), LowerCase(ListBox7.Items[i])) > 0 then
  begin
   ListBox7.ItemIndex := i;
   LastIndex := i;
end;
end;
end;
procedure TForm1.Button25Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button24.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button26Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit9.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit9.Text) then LastSearch := LowerCase(Edit9.Text);


for i := Start to ListBox7.Items.Count - 1 do
begin
if pos(LowerCase(Edit9.text), LowerCase(ListBox7.Items[i])) > 0 then
  begin
   ListBox7.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button27Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button26.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button28Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit11.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit11.Text) then LastSearch := LowerCase(Edit11.Text);


for i := Start to ListBox8.Items.Count - 1 do
begin
if pos(LowerCase(Edit11.text), LowerCase(ListBox8.Items[i])) > 0 then
  begin
   ListBox8.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button29Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button28.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.ImiiNazwisko1Click(Sender: TObject);
begin
button18.Click;
end;

procedure TForm1.Adreskorespondencji1Click(Sender: TObject);
begin
button19.Click;
end;

procedure TForm1.Unazwafirmy1Click(Sender: TObject);
begin
button21.Click;
end;

procedure TForm1.Okresubezpieczenia1Click(Sender: TObject);
begin
button14.Click;
end;

procedure TForm1.Skadkapatnajednorazowo1Click(Sender: TObject);
begin
button25.Click;
end;

procedure TForm1.erminpatno1Click(Sender: TObject);
begin
Button27.Click;
end;

procedure TForm1.Nrpolisy1Click(Sender: TObject);
begin
Button22.Click;
end;

procedure TForm1.Przedmiotubezpieczenia1Click(Sender: TObject);
begin
Button29.Click;
end;

procedure TForm1.Usu1Click(Sender: TObject);
begin
button13.Click;
end;

procedure TForm1.Bazadanych1Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
  button1.OnClick := button1.Onclick ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button30.Click;
end;

end.
procedure TForm1.Button5Click(Sender: TObject);
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('baza.bin');
  MS.ReadComponent(Listbox1);
  MS.ReadComponent(Listbox2);
  MS.ReadComponent(Listbox3);
  MS.ReadComponent(Listbox4);
  MS.ReadComponent(Listbox5);
  MS.ReadComponent(Listbox6);
  MS.ReadComponent(Listbox7);
  MS.ReadComponent(Listbox8);
  MS.Free;
end;
end;

procedure TForm1.Button17Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit5.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit5.Text) then LastSearch := LowerCase(Edit5.Text);


for i := Start to ListBox2.Items.Count - 1 do
begin
if pos(LowerCase(Edit5.text), LowerCase(ListBox2.Items[i])) > 0 then
  begin
   ListBox2.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;

procedure TForm1.Button19Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button17.Click;
Button8.Click;
Button9.Click;

end;

procedure TForm1.Button25Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button24.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button26.Click;
Button8.Click;
Button9.Click;
end;

end.

Wszystko działało i coś zrobiłem że do każdej procedury wywala błąd:
Unsatisfied forward of external declaration

Proszę o pomoc będę bardzo wdzięczny

Pozdrawiam

Delphi

edytowany 2x, ostatnio: madmike 2011-12-10 14:19

Xitami 2011-12-10 17:46

podobałby mi się napisana w tym stylu funkcja itoa(), można by zrobić nawet dość efektywnie, początek może wyglądać tak: if( n < 2^31 ) ... :). Gdyby jeszcze w firmie płacili wierszówkę?

Xitami 2011-12-10 17:48

Ale nie przejmuj się Norbert, zadzieramy nosa, bo po prostu ten etap mamy za sobą.

xeo545x39 2011-12-10 19:01

Mamo!!!

madmike

2011-12-10 14:21

madmike2011-12-10 14:21

Rejestracja:prawie 20 lat
Ostatnio:ponad 5 lat

Wszedłem, zobaczyłem i popłakałem się... :(

Kopiuj

else if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox7.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox7.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox7.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox7.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox7.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox7.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox7.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox7.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox7.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox7.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox7.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox7.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox7.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox7.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox7.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox7.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox7.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox7.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox7.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox7.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox7.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox7.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox7.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox7.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox7.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox7.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox7.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox7.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox7.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox7.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox7.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox7.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox7.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox7.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox7.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox7.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox7.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox7.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox7.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox7.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox7.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox7.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox7.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox7.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox7.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox7.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox7.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox7.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox7.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox7.ItemIndex = 50 then Edit17.Text:= '50'

I dalej w tym bajzlu kodu nie miałem siły czytać :]

BTW: wyłączyłem formatowanie delphi, bo coś nam się parser sypie...

Błąd Unsatisfied forward of external declaration oznacza, że masz gdzieś zadeklarowaną procedurę, a nie masz jej w kodzie - szukaj - kompilator ma zwyczaj podświetlać linię, w której napotkał problem...

Zamiast tasiemca

Kopiuj

if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
//...
//..

Możesz napisać np.

Kopiuj

Edit17.Text := IntToStr(ListBox17.ItemIndex);

Co przypisze do edita indeks zaznaczonej pozycji z listbox'a

I oczywiście ten kod można jeszcze bardziej uprościć, ale to tak na początek - może wtedy da się to czytać...

edytowany 3x, ostatnio: madmike 2011-12-10 14:29

Rev

2011-12-10 14:30

Rev2011-12-10 14:30

Moderator

Rejestracja:około 18 lat
Ostatnio:około rok

Proponuję zbanować typa za spamowanie prywatnymi wiadomościami. I za c**** kod.

olesio 2011-12-10 14:31

Mnie też spamował, ale mu napisałem że kod jest bznadziejny i nic z niego nie wywróżę.

madmike 2011-12-10 14:33

Chwilowo dostał na pm-kę ostrzeżenie, następne próby to będzie pożegnanie...

[losowa nazwa]

2011-12-10 14:34

[losowa nazwa]2011-12-10 14:34

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

Póki nie podasz informacji o tym, gdzie wyrzucany jest ten błąd, to nikt Ci nie pomoże. I nie spamuj.

norbert95

2011-12-10 15:15

norbert952011-12-10 15:15

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

błąd wyrzuca przy

procedure Button3Click(Sender: TObject);

jak usunę jego całą procedurę to wyrzuca przy następnym i tak w kółko

Pokazuje tak jakbym miał zaznaczone wszystkie procedury a wcale nie miał ani jednej wpisanej... ;(

co to znaczy nie odpowiednio, do tej pory działało tylko w pewnej chwili przestało, jak zacząłem się bawić z drugą formą ( form5) i timer'em ale to chyba nie ma nic do rzeczy

edytowany 3x, ostatnio: norbert95 2011-12-10 15:24

[losowa nazwa]

2011-12-10 15:36

[losowa nazwa]2011-12-10 15:36

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

Tu:

Kopiuj

procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X) // BRAK SREDNIKA !
end;

Xitami 2011-12-10 17:03

średnik przed end dodaje tylko pustą instrukcję

[losowa nazwa] 2011-12-10 17:09

A optymalizator ją usuwa ;p Za to kod jest bardziej spójnie napisany.

Xitami 2011-12-10 17:39

to sprawa gustu. Średnik może się przydać, np. jedna kompilacja mniej gdy dopisze się jedną linijkę. Choć gdy list ma być publikowany to średnik byłby raczej błędem.

norbert95

2011-12-10 15:38

norbert952011-12-10 15:38

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

nic nie dało, nadal ten sam błąd i pokazuje tą samą linijkę

Dodam że po kliknięciu na którykolwiek button wywala okienko z :
Cannot find implementation o method

edytowany 1x, ostatnio: norbert95 2011-12-10 15:40

[losowa nazwa]

2011-12-10 15:40

[losowa nazwa]2011-12-10 15:40

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

Może tak:

Kopiuj

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';
 
 
       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X)
end;
 
end. // CO TO ZA END. ?!?!?!?!?!
 
 
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, // CZEMU TU JEST DRUGI RAZ TO SAMO ?!
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';
 
 
       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X)
end;

[losowa nazwa]

2011-12-10 15:41

[losowa nazwa]2011-12-10 15:41

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

Czlowieku, wez sie ogarnij.... a potem ogarnij ten kod.

norbert95

2011-12-10 15:43

norbert952011-12-10 15:43

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

a co zamiast tego end. ? ( do tej pory działo )

madmike

2011-12-10 15:46

madmike2011-12-10 15:46

Rejestracja:prawie 20 lat
Ostatnio:ponad 5 lat

W ogóle wiesz co robisz? Czy tak sobie po prostu klikasz i wpisujesz kod gdzie popadnie???

Kopiuj

end.

oznacza koniec programu - co KONIEC PROGRAMU robi w ŚRODKU PROGRAMU???

norbert95

2011-12-10 15:48

norbert952011-12-10 15:48

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

wiem też mnie to dziwiło, ale tak działało....
jak zamiast end. wpisze end; to się czepia

Zobacz pozostały 1 komentarz

[losowa nazwa] 2011-12-10 15:52

@madmike: +1

norbert95 2011-12-10 15:52

usunąłem, zaznacza begin w następnej procedurze identiefier redeclared

[losowa nazwa] 2011-12-10 15:53

Wklej AKTUALNĄ wersję kodu na pastebin 4programmers i daj linka.

madmike 2011-12-10 15:54

Programowanie doświadczalne :/ Spakuj cały projekt, wstaw na forum jako załącznik, może komuś będzie się chciało odpalić u siebie i zobaczyć, inaczej do świąt będziemy się tak bawić...

madmike 2011-12-10 15:56

@[losowa nazwa]: Lepiej cały projekt, diabli wiedzą jakie tam jeszcze perełki siedzą...

norbert95

2011-12-10 16:08

norbert952011-12-10 16:08

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

Proszę tylko o wyprowadzenie mnie z błędu bo chciałbym na niskim bo niskim ale jednak poziomie skończyć ten program, wydaje mi się że coś jest pokręcone z deklaracjami bo ogólnie kod działał.

Ile end; powinno być przy tej procedurze?

procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

X := A+B+C+D+E+F;

edit16.Text :=FloatToStr(X);
end;

edytowany 1x, ostatnio: norbert95 2011-12-10 16:11

[losowa nazwa] 2011-12-10 16:13

Powinno być dokładnie tyle, ile jest: jedno end ze średnikiem. "End." jest tylko na KOŃCU PLIKU.

[losowa nazwa]

2011-12-10 16:12

[losowa nazwa]2011-12-10 16:12

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

No on sobie w kulki leci. Nie usunal zdublowanych metod, nie dopisal srednika, nie usunal "end.".... bez jaj. Nie chce mi się już "pomagać", skoro on lekceważy to, co ludzie mu mówią (mowa o projekcie, który zuploadował).

edytowany 1x, ostatnio: [losowa nazwa] 2011-12-10 16:14

norbert95

2011-12-10 16:15

norbert952011-12-10 16:15

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

dobrze już wiem że nie usunąłem, spakowałem nie ten najnowszy tylko wcześniejszy... przepraszam

edytowany 1x, ostatnio: norbert95 2011-12-10 16:15

[losowa nazwa]

2011-12-10 16:32

[losowa nazwa]2011-12-10 16:32

Rejestracja:około 16 lat
Ostatnio:około rok
Postów:1398

A zatem jaki jest aktualny błąd ? Gdzie on występuje ? I gdzie jest nowa wersja kodu ? (ja obstawiam, że na razie wystarczy wrzucenie na pastebin kodu i podanie linka)

norbert95

2011-12-10 16:37

norbert952011-12-10 16:37

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

dobra szczerze nie wiem jak i nie wiem dlaczego miałem niektóre procedury podwójnie pousuwałem była jedna deklaracja procedury nie używana posuwałem i o dziwo DZIAŁA.

Dzięki za wytrwałość

Pozdrawiam

madmike

2011-12-10 16:41

madmike2011-12-10 16:41

Rejestracja:prawie 20 lat
Ostatnio:ponad 5 lat

Hmmm, :/

norbert95 napisał(a)

Pousuwałem błędy z programu i o dziwo teraz działa

Gratulacje :]

edytowany 2x, ostatnio: madmike 2011-12-10 16:41

[losowa nazwa] 2011-12-10 16:52

"o dziwo" :D

norbert95

2011-12-10 17:34

norbert952011-12-10 17:34

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

A mogę pytanko na szybko ?

Jak wyciągnąć z którego listbox'a (mam ich 6) jest zaznaczony item , umiem wyciągnąć numer linii ale jak wyciągnąć ktory to listbox ?

olesio

2011-12-10 18:27

olesio2011-12-10 18:27

Rejestracja:około 17 lat
Ostatnio:około 3 lata
Lokalizacja:Szczecin
Postów:4191

Sprawdzasz czy ItemIndex jest większy od minus jeden. Poza tym mając sześć ListBoxów możesz się przecież odwołać do nich po nazwie we własności Name np ListBox3. Ewentualnie mieć te ListBoxy w tablicy albo TList albo TObjectList, jak Ci wygodniej. Więcej na ten temat znajdziesz w google. O ile dobrze zrozumiałem co chcesz zrobić.

norbert95

2011-12-10 19:03

norbert952011-12-10 19:03

Rejestracja:około 14 lat
Ostatnio:prawie 9 lat
Postów:125

OK dzięki jeszcze raz ;)

Jesteście KOzaki

Liczba odpowiedzi na stronę

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto

Błąd Unsatisfied forward of external declaration POMOCY [delphi]

norbert95

madmike

Rev

[losowa nazwa]

norbert95

[losowa nazwa]

norbert95

[losowa nazwa]

[losowa nazwa]

norbert95

madmike

norbert95

norbert95

[losowa nazwa]

norbert95

[losowa nazwa]

norbert95

madmike

norbert95 napisał(a)

norbert95

olesio

norbert95

Programista Systemów Automatyki - PCS7

Java Developer

DevOps Engineer - migracja serwerów (Kubernetes,Docker,RoR)

Data Scientist

Praca dla programistów

Forum dyskusyjne

Sprawy administracyjne

O nas

Skontaktuj się z nami