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

306

    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. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      182
      6604
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      148
      1824
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1598
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1320
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      47
      1029
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      41
      985
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      98
      952
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      879
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      248
      871
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      839
    Aihe