27. oktober 2000 - 14:02Der er
18 kommentarer og 1 løsning
end;
Hejsa jeg har 2 problemer med Delphi. 1: Jeg skal lave et teksbehandlingsprogram og det bruger jeg en memo til men nå jeg så starter programmet står der altid i starten \"Memo2\" hvordan kan jeg fjerne det? 2:Det alvorlige problem nå jeg er færdig med et afsnit og skal prøve programmet siger den altid ERROR END; missing at end of module. Engang imellem er jeg heldig og gør et eller andet så \"end;\" teksten flytter sig og så siger den ikke fejl men jeg aner ikke hvad jeg gør
det der med at der mangler et end; har mest med at gøre at du bruger flere begin i din procedure hver gang der bliver brugt begin skal der insættes et end
procedure TForm1.Udskriv1Click(Sender: TObject); var Prn : TextFile; i : Integer; begin if PrintDialog1.Execute then begin AssignPrn(Prn); ReWrite(Prn); Printer.Canvas.Font:=Memo1.Font; for i:=0 to Memo1.Lines.Count-1 do WriteLn(Prn,Memo1.Lines[1]); CloseFile(Prn); end; end;
Som erikjacobsen siger skal du bare klikke på de tre punktummer i object inspector og slette alt hvad der står i tekstfeltet, og det er det (ikke noget med caption???).
Og hvad angår fejlen med \"end;\" er det bare et spørgsmål om at tælle dine \"begin\" og \"end\". Et godt tip er altid at skrive din kode således.
begin begin begin end; end; end;
Det gør det nemmere at overskue hvis og hvor der mangler et begin eller et \"end\".
Nej Hvordan du stiller din kode op er compileren lige glad med. 200% endda. fidusen er bare at hvis du stiller det op med indryk så er det meget nemmere at se hvor der mangler et end;
Undskyld jeg ikke har svaret i lang tid men har simpelthen ikke haft tid til det jeg har løst mit problem og i var på en måde næsten alle med til at hjælpe men alligevel vil jeg give pointene til en som jeg synes har klaret det flottere
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
