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

246

    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. Poliisitehtävä alkuviikosta Maisan kotona

      Iltasanomat: Helsingin poliisilaitos vahvistaa, että Vantaalla on ollut poliisitehtävä kyseisenä ajankohtana. Poliisin
      Kotimaiset julkkisjuorut
      86
      2048
    2. Tämä on sinulle vaikka kaikki lukee

      Vaikka kuinka olet viisas ja kaikin puolin velho, niin et tiedä tilanteestani. Senkin takia menetät mielenkiinnon. Eikä
      Tunteet
      11
      1662
    3. T-mies tässä

      Kerro nainen huolesi niin pohditaan yhdessä. 😎
      Ikävä
      102
      1152
    4. Lulu selvityttää Elokapinan lakkautusta

      Persukannattajien mielistely otti Lulu Ranteella aika tavalla runtua, kun hän aikoo selvityttää mahdollisuuksia Elokapin
      Maailman menoa
      350
      1126
    5. Ensitreffit Matti joutuu "ulkoruokintaan" - Väärinymmärrysten suossa Taina-vaimon kanssa: "Oli..."

      No nyt on kyllä väärinymmärrystä kerrakseen… Mitä luulet, pysyykö Taina ja Matti yhdessä vai onko tulevaisuudessa ero ed
      Ensitreffit alttarilla
      3
      1113
    6. Harmi, kun sillä nousi

      kaikki huomio päähän. Vaikutti aluksi niin mukavalta ja vaatimattomalta 😔
      Ikävä
      53
      851
    7. Täytyy sanoa

      Että olit kyllä mielenkiintoisin ja omaperäisin nainen mitä olen koskaan tavannut. Aivan kuin joku olisi tiputtanut sinu
      Ikävä
      21
      839
    8. Miten saisin

      Hurmattua sinut uudelleen,? Pissin omiin muroihini ensinmäisellä kerralla koska olin tyhmä ja liiaksi kiinni menneess
      Ikävä
      31
      777
    9. Persu Meri Valkama kadehtii Sanna Marinin menestystä

      Taas yksi persu tuli nolaamaan itsensä kadehtiessaan menestynyttä Suomen kansan supertähteä Sanna Marinia. https://demo
      Maailman menoa
      237
      737
    10. Raamatun tärkein lause

      Ja Mooses tuli alas vuorilta missä jumala oli, Mooseksen mukaan, ilmoittanut hänelle, että hän ja koko juutalainen väki,
      Hindulaisuus
      367
      719
    Aihe