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?
Lazarus.....
ongema.......
8
246
Vastaukset
- 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.......
... kirjoitti:
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.kiitos. Pystytkö vielä tähän vastaamaan? --> http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000032478488
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Poliisitehtävä alkuviikosta Maisan kotona
Iltasanomat: Helsingin poliisilaitos vahvistaa, että Vantaalla on ollut poliisitehtävä kyseisenä ajankohtana. Poliisin862048Tämä on sinulle vaikka kaikki lukee
Vaikka kuinka olet viisas ja kaikin puolin velho, niin et tiedä tilanteestani. Senkin takia menetät mielenkiinnon. Eikä111662- 1021152
Lulu selvityttää Elokapinan lakkautusta
Persukannattajien mielistely otti Lulu Ranteella aika tavalla runtua, kun hän aikoo selvityttää mahdollisuuksia Elokapin3501126Ensitreffit 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 ed31113Harmi, kun sillä nousi
kaikki huomio päähän. Vaikutti aluksi niin mukavalta ja vaatimattomalta 😔53851Täytyy sanoa
Että olit kyllä mielenkiintoisin ja omaperäisin nainen mitä olen koskaan tavannut. Aivan kuin joku olisi tiputtanut sinu21839Miten saisin
Hurmattua sinut uudelleen,? Pissin omiin muroihini ensinmäisellä kerralla koska olin tyhmä ja liiaksi kiinni menneess31777Persu Meri Valkama kadehtii Sanna Marinin menestystä
Taas yksi persu tuli nolaamaan itsensä kadehtiessaan menestynyttä Suomen kansan supertähteä Sanna Marinia. https://demo237737Raamatun tärkein lause
Ja Mooses tuli alas vuorilta missä jumala oli, Mooseksen mukaan, ilmoittanut hänelle, että hän ja koko juutalainen väki,367719