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.....
8
200
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
- 881184
Asiallinen lähestyminen
Mitä on asiallinen lähestyminen?? Tietääkö tai tajuaako kukaan, varsinkaan miehet??? Eilen NELJÄNNEN kerran jouduin isk1511016En tiedä..
Yhtään minkälainen miesmaku sinulla on. itse arvioin sinua moneenkin otteeseen ja joka kerta päädyin samaan lopputulokse50701Jennika Vikman avoimena - Isosisko Erika Vikman ohjeisti napakasti Tähdet, tähdet -kisaan: "Älä.."
Jennika ja Erika - niin ovat kuin kaksi marjaa! Ilmeiltään, ääneltään ja eleiltään hyvinkin samanlaiset - toinen on kyll14700Vedalainen metafysiikka
Termi ”metafysiikka” kuuluu Aristoteleelle. Metafysiikka tarkoittaa ”fysiikan jälkeen” eli tietoa siitä, mikä on tavalli287685- 60674
Ai jaa sinä oletkin ahnas
Ja romanttinen luonne, nyt vasta hiffasin että olet naarastiikeri. Parempi myöhään kuin ei milloinkaan.107660En oikeastaan usko että sinä tai kukaan
Olisi oikeasti ihastunut tai rakastunut. Se on joku harhakuva joka minusta miehestä syntyi. Ja kun se särkyy, niin "tunt42614Viime yönä mietin paikkoja luonnossa, missä olen kulkenut
kävellyt ja ikävöinyt, ja ollut niin yksin. Monet kerrat. Ne palauttavat mieleeni sinut ja sen, kuinka kipeää on se kaip57602Milloin viimeksi näit ikäväsi kohteen?
Oliko helppo tunnistaa hänet? Millaisia tunteita tuo näkeminen herätti sinussa?35585