Lazarus.....

ongema.......

Tälläsen komennon kun laitan

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.tag =0 then
begin
Button1.caption:='Press again!!';
Button1.tag:=1
end else
begin
Button1.caption:='Press';
Button1.tag:=0
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

Ja koitan käynnistää ohjelman tulee virhe 'Resurssitiedoston lukeminen ei onnistunut.
Resurssitiedosto pitää olla ensimmäisenä tiedostona
Initialization.
Eli tämän kaltainen määrittely siellä pitäisi olla {$l Unit1.lrs}
Todennäköisesti kyseessä on syntaksi virhe.' Mistäs tämä johtuu ja miten korjaantuu?

8

205

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • sitten................

      vielä tällänen kysymys, että miksi toho tekstiboksiin (Edit1) ei voi laittaa enempää ku yhen sanan? Jos laitan enemmän niin se ei hyväksy sitä.

    • ja....................

      sitte viel vika. Ku yritän lisätä jotain ni avautuu heti lähdekoodieditori ja vetää keltasen pohjan tähän kohtaan procedure TForm1.Button2Click(Sender: TObject); Mistähän johtuu? Teen edelleen tota samaa hommaa. Kääntäjän kommentissa tällänen teksti unit1.pas(46,1) Error: unexpected keyword "procedure" in begin..end found. start at (35,1)

      • ...

        lisää end; ennen TForm1.Button2Click


      • tämän..............
        ... kirjoitti:

        lisää end; ennen TForm1.Button2Click

        procedure TForm1.Button2Click(Sender: TObject); muutan procedure end; TForm1.Button2Click(Sender: TObject);?


    • ...

      initialization
      {$I unit1.lrs}

      end.

      • tässä................

        koko sarja

        procedure TForm1.Button1Click(Sender: TObject);
        begin
        if Button1.tag =0 then
        begin
        Button1.caption:='Press again!!';
        Button1.tag:=1
        end else
        begin
        Button1.caption:='Press';
        Button1.tag:=0
        end;

        procedure TForm1.Button2Click(Sender: TObject);
        begin
        Close;
        end;

        initialization
        {$I unit1.lrs}

        end.

        Eikä toimi.


      • ...
        tässä................ kirjoitti:

        koko sarja

        procedure TForm1.Button1Click(Sender: TObject);
        begin
        if Button1.tag =0 then
        begin
        Button1.caption:='Press again!!';
        Button1.tag:=1
        end else
        begin
        Button1.caption:='Press';
        Button1.tag:=0
        end;

        procedure TForm1.Button2Click(Sender: TObject);
        begin
        Close;
        end;

        initialization
        {$I unit1.lrs}

        end.

        Eikä toimi.

        procedure TForm1.Button1Click(Sender: TObject);
        begin
        if Button1.tag =0 then
        begin
        Button1.caption:='Press again!!';
        Button1.tag:=1
        end else
        begin
        Button1.caption:='Press';
        Button1.tag:=0
        end;
        end; //tämä lisää

        procedure TForm1.Button2Click(Sender: TObject);
        begin
        Close;
        end;

        initialization
        {$I unit1.lrs}

        end.


      • toimii.......

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kamala onnettomuus

      Miten tällaiset mönkijäonnettomuudet yleensä tapahtuu? Liikaa vauhtia? Saako mönkijöillä ajaa lasten kanssa ja ilman kyp
      Suomussalmi
      172
      7522
    2. Mönkijäpnnettomuus

      Harmillinen homma. https://www.hs.fi/suomi/art-2000010557170.html
      Suomussalmi
      37
      2056
    3. Tilitoimisto!!!

      Mikä tilitoimisto jäi kiinni rikoksesta Rovaniemellä?
      Rovaniemi
      27
      1457
    4. Tietäisitpä miten haluaisin sinut kohdata

      Vaikka vaan katsella ohimennen. Voisitko telepaattisesti lähettää viestiä, - löytyisikö kohtauspaikkaa?
      Ikävä
      63
      1376
    5. Kerro kaivatustasi jotakin mukavaa.

      Itse aloitan: hyvännäköinen ja ahkera ❤️‍🔥
      Ikävä
      79
      1081
    6. Milloin oot nähnyt kaivattusi

      ensimmäistä kertaa?
      Ikävä
      55
      985
    7. Missä päin suomea kaivattusi asustelee?

      Oma kaivattuni (mies(J) asuu Uudenmaan läänissä.
      Ikävä
      50
      884
    8. Oon pahoillani sun puolesta

      kun olit muuttunut niin paljon ulkoisesti. Ja huonompaan suuntaan. Koeta pärjätä. Naiselle mieheltä vuosien takaa
      Ikävä
      38
      844
    9. Tiesitkös nainen että mulla on paljon vientiä?!

      Sänkyseuraa riittää, valinnan vaikeus.
      Ikävä
      85
      809
    10. Tikanmäen vastaus Haavistolle

      Aika erikoinen puolustautuminen valtuuston puheenjohtajalla kaupunkilaisen kirjoitukseen. Haavisto ihmetteli niitä tunn
      Pyhäjärvi
      103
      804
    Aihe