Ĺadny brzuch
Piszę lekko przerobiony edytor html z eksperta (aktualnego numeru). Jak mam gotowy to wyświetla mi jakieś errory z kompilacją i przy "Nazwa_pliku" które były napisane przy menu (3 strona kursu prgramu). Usuwam te nazwa pliku i kolejne błędy. Co robić?
[...] Jak mam gotowy to wyświetla mi jakieś errory z kompilacją [...] Usuwam te nazwa pliku i kolejne błędy. Co robić?
Przeczytaj ten temat
Przeczytaj ten temat
dobra sorry Oxi, że zapomniałem dać kod, ale mam go na drógim kompie:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SynHighlighterVBScript, SynHighlighterPHP, SynHighlighterJScript, SynHighlighterHtml, SynHighlighterCSS, SynEditHighlighter, SynHighlighterMulti, SynEdit, Menus, SynURIOpener, SynEditExport, SynExportHTML; type TOkno = class(TForm) Menu: TMainMenu; Plik: TMenuItem; Nowy1: TMenuItem; Otworz1: TMenuItem; Zapisz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Zamknij1: TMenuItem; Edycja1: TMenuItem; Cofnij1: TMenuItem; Powtrz1: TMenuItem; Kopiuj1: TMenuItem; Wytnij1: TMenuItem; Wklej1: TMenuItem; Zaznaczwszystko1: TMenuItem; SynEdit1: TSynEdit; SynMultiSyn1: TSynMultiSyn; SynCssSyn1: TSynCssSyn; SynHTMLSyn1: TSynHTMLSyn; SynJScriptSyn1: TSynJScriptSyn; SynPHPSyn1: TSynPHPSyn; SynVBScriptSyn1: TSynVBScriptSyn; OknoOtworz: TOpenDialog; OknoZapisz: TSaveDialog; SynURIOpener1: TSynURIOpener; N2: TMenuItem; SynExporterHTML1: TSynExporterHTML; procedure Zamknij1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure Powtrz1Click(Sender: TObject); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Otworz1Click(Sender: TObject); procedure Zapisz1Click(Sender: TObject); procedure Zapiszjako1Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); private { Nazwa_pliku : String; } public { Nazwa_pliku : String } end; var Okno: TOkno; implementation {$R *.dfm} procedure TOkno.Zamknij1Click(Sender: TObject); begin Close; end; procedure TOkno.Cofnij1Click(Sender: TObject); begin SynEdit1.Undo; end; procedure TOkno.Powtrz1Click(Sender: TObject); begin SynEdit1.Redo; end; procedure TOkno.Kopiuj1Click(Sender: TObject); begin SynEdit1.CopyToClipboard; end; procedure TOkno.Wytnij1Click(Sender: TObject); begin SynEdit1.CutToClipboard; end; procedure TOkno.Wklej1Click(Sender: TObject); begin SynEdit1.PasteFromClipboard; end; procedure TOkno.Zaznaczwszystko1Click(Sender: TObject); begin SynEdit1.SelectAll; end; procedure TOkno.Nowy1Click(Sender: TObject); begin SynEdit1.Lines.Clear; Nazwa_pliku:='Nowy plik'; end; procedure TOkno.Otworz1Click(Sender: TObject); begin Nazwa_pliku:= OknoOtworz.FileName; SynEdit1.Lines.LoadFromFile(Nazwa_pliku); end; procedure TOkno.Zapisz1Click(Sender: TObject); begin if Nazwa_pliku='' then ZapiszJako1Click(Sender) else SynEdit1.Lines.SaveToFile(Nazwa_pliku); end; procedure TOkno.Zapiszjako1Click(Sender: TObject); begin if OknoZapisz.Execute then begin Nazwa_pliku:=OknoZapisz.FileName; Zapisz1Click(Sender); end; end
błędy:
[Error] Unit1.pas(104): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(109): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(115): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(104): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(123): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(130): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(52): Unsatisfied forward or external declaration: 'TOkno.Zaznaczwszystko2Click'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
public { Nazwa_pliku : String }
Ten fragment powinien wygladac tak :
public Nazwa_pliku : String
Po prostu zmienna nazwa_pliku byla w komentarzu, i kompilator "nie mogl jej zobaczyc" i przy kazdym do niej odwolaniu plul sie ze zmienna nie istnieje ;)
dzięki. programuję 5 dni więc jeszcze takich rzeczy nie wiem. ale przynajmiej się czegoś nauczyłem. można zamknąć temat.
Użytkownik markollx edytował ten post 24 luty 2005, 17:05
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
[...] Jak mam gotowy to wyświetla mi jakieś errory z kompilacją [...] Usuwam te nazwa pliku i kolejne błędy. Co robić?
Przeczytaj ten temat
Przeczytaj ten temat
dobra sorry Oxi, że zapomniałem dać kod, ale mam go na drógim kompie:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SynHighlighterVBScript, SynHighlighterPHP, SynHighlighterJScript, SynHighlighterHtml, SynHighlighterCSS, SynEditHighlighter, SynHighlighterMulti, SynEdit, Menus, SynURIOpener, SynEditExport, SynExportHTML; type TOkno = class(TForm) Menu: TMainMenu; Plik: TMenuItem; Nowy1: TMenuItem; Otworz1: TMenuItem; Zapisz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Zamknij1: TMenuItem; Edycja1: TMenuItem; Cofnij1: TMenuItem; Powtrz1: TMenuItem; Kopiuj1: TMenuItem; Wytnij1: TMenuItem; Wklej1: TMenuItem; Zaznaczwszystko1: TMenuItem; SynEdit1: TSynEdit; SynMultiSyn1: TSynMultiSyn; SynCssSyn1: TSynCssSyn; SynHTMLSyn1: TSynHTMLSyn; SynJScriptSyn1: TSynJScriptSyn; SynPHPSyn1: TSynPHPSyn; SynVBScriptSyn1: TSynVBScriptSyn; OknoOtworz: TOpenDialog; OknoZapisz: TSaveDialog; SynURIOpener1: TSynURIOpener; N2: TMenuItem; SynExporterHTML1: TSynExporterHTML; procedure Zamknij1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure Powtrz1Click(Sender: TObject); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Otworz1Click(Sender: TObject); procedure Zapisz1Click(Sender: TObject); procedure Zapiszjako1Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); private { Nazwa_pliku : String; } public { Nazwa_pliku : String } end; var Okno: TOkno; implementation {$R *.dfm} procedure TOkno.Zamknij1Click(Sender: TObject); begin Close; end; procedure TOkno.Cofnij1Click(Sender: TObject); begin SynEdit1.Undo; end; procedure TOkno.Powtrz1Click(Sender: TObject); begin SynEdit1.Redo; end; procedure TOkno.Kopiuj1Click(Sender: TObject); begin SynEdit1.CopyToClipboard; end; procedure TOkno.Wytnij1Click(Sender: TObject); begin SynEdit1.CutToClipboard; end; procedure TOkno.Wklej1Click(Sender: TObject); begin SynEdit1.PasteFromClipboard; end; procedure TOkno.Zaznaczwszystko1Click(Sender: TObject); begin SynEdit1.SelectAll; end; procedure TOkno.Nowy1Click(Sender: TObject); begin SynEdit1.Lines.Clear; Nazwa_pliku:='Nowy plik'; end; procedure TOkno.Otworz1Click(Sender: TObject); begin Nazwa_pliku:= OknoOtworz.FileName; SynEdit1.Lines.LoadFromFile(Nazwa_pliku); end; procedure TOkno.Zapisz1Click(Sender: TObject); begin if Nazwa_pliku='' then ZapiszJako1Click(Sender) else SynEdit1.Lines.SaveToFile(Nazwa_pliku); end; procedure TOkno.Zapiszjako1Click(Sender: TObject); begin if OknoZapisz.Execute then begin Nazwa_pliku:=OknoZapisz.FileName; Zapisz1Click(Sender); end; end
błędy:
[Error] Unit1.pas(104): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(109): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(115): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(104): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(123): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(130): Undeclared identifier: 'Nazwa_pliku'
[Error] Unit1.pas(52): Unsatisfied forward or external declaration: 'TOkno.Zaznaczwszystko2Click'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
public { Nazwa_pliku : String }
Ten fragment powinien wygladac tak :
public Nazwa_pliku : String
Po prostu zmienna nazwa_pliku byla w komentarzu, i kompilator "nie mogl jej zobaczyc" i przy kazdym do niej odwolaniu plul sie ze zmienna nie istnieje ;)
dzięki. programuję 5 dni więc jeszcze takich rzeczy nie wiem. ale przynajmiej się czegoś nauczyłem. można zamknąć temat.
Użytkownik markollx edytował ten post 24 luty 2005, 17:05