Ĺadny brzuch
Prubuję napisać moduł językowy w oparciu o Eksperta 4/06. Gdy podaję procedurę TfGlwny.FormCreate(Sender: TObject) (Automatycznie) i dodaję
var IniFile: TIniFile; Wyżuca mi błąd o nieznanej funkcji IniFile: TIniFile. Co zrobić??
Dodać do sekcji uses IniFiles.
Jak dodam do sekcji uses To wyżyca mi błąd:
File not Fund "IniFile.cdu"
Pocieszenie: tylko ten błąd
IniFiles a nie IniFile :o :lol:
// wyżyca - wyrzuca ;)
Użytkownik krajew4 edytował ten post 03 lipiec 2006, 12:09
Dzięki. Na razie nie ma błądów. Jak Co do będęł dalej pisał do tego tematu
A teraz z innej beczki co do języków.
Jak wygląda kod, który wraz ze zmianą języka zmieni (w programie, a nie na całym komputerze) język klawiatury?
np.
Wybierze ktoś Deutch to klawiatura będzie niemiecka.
http://4programmers....aszym_programie
Może to pomoże
Narazie zrezygnowałem za zmiany j. klawiatury. Jest teraztaki problem z kodem językowym.
Aby przed zamknięciem, otworzeniem nowego lub zapisanego pliku, podczas pracy w dokumencie (tworzę edytor) w której coś się zmieniło wyświetlił się o tym komunikat stosyję kod;
begin if Edytor.Modified then case Application.MessageBox('W dokumęcie zaszły zmiany. Zapisać?','Uwaga',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
Wszystko działa. Gdy jednak dodam moduł językowy wszystkie napisy podaję kodem
JezykPobierz()
A w nawiasie podaję numer tekstu. Wygląda to tak:
begin if Edytor.Modified then case Application.MessageBox('JezykPobierz(2),'JezykPobierz(3)',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
Wtedy jednak nie skąpiluje mi program, bo wrzuca błąd w tej linii:
[Error] Unit1.pas(89): Incompatible types: 'String' and 'PAnsiChar' [Error] Unit1.pas(90): Incompatible types: 'String' and 'PAnsiChar' [Fatal Error] Edytor.dpr(6): Could not compile used unit 'Unit1.pas'
I co zrobi?
begin if Edytor.Modified then case Application.MessageBox('JezykPobierz(2),'JezykPobierz(3)',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
JezykPobierz(2) nie ma zamykającego apostrofa.
Jest 'JezykPobierz(2) powinno być 'JezykPobierz(2)' B) :P
To mój błąd. To nie ma być w apostrofach bo wtedy wypisyje JezykPobierz(2) A on ma pobraćnapis.
No to w takim razie PCHAR(JezykPobierz(2))
No, to upraszcza sprawę. A z innej beczki: jak wygląda polecenie drukowania?
Edytor.???
Jeśli ten twój Edytor to TRichEdit to:
Edytor.Print('');
Jeśli TMemo to:
tutaj
A jak to jest SynEdit komponentu SynEdit?
Jak to jest SynEdit to zajrzyj najpierw do demek komponentu a dopiero potem zadawaj takie pytanie. :mad:
Ale chyba mógłbyś podać kod bo nie mogę znaleść żadnego programu z tym komponentem.
Ale chyba mógłbyś podać kod bo nie mogę znaleść żadnego programu z tym komponentem.
Skoro nie ma demka to poczytaj help'a.
A mógłbyś przynajmniej podać link do przeczytania
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var IniFile: TIniFile; Wyżuca mi błąd o nieznanej funkcji IniFile: TIniFile. Co zrobić??
Dodać do sekcji uses IniFiles.
Jak dodam do sekcji uses To wyżyca mi błąd:
File not Fund "IniFile.cdu"
Pocieszenie: tylko ten błąd
IniFiles a nie IniFile :o :lol:
// wyżyca - wyrzuca ;)
Użytkownik krajew4 edytował ten post 03 lipiec 2006, 12:09
Dzięki. Na razie nie ma błądów. Jak Co do będęł dalej pisał do tego tematu
A teraz z innej beczki co do języków.
Jak wygląda kod, który wraz ze zmianą języka zmieni (w programie, a nie na całym komputerze) język klawiatury?
np.
Wybierze ktoś Deutch to klawiatura będzie niemiecka.
http://4programmers....aszym_programie
Może to pomoże
Narazie zrezygnowałem za zmiany j. klawiatury. Jest teraztaki problem z kodem językowym.
Aby przed zamknięciem, otworzeniem nowego lub zapisanego pliku, podczas pracy w dokumencie (tworzę edytor) w której coś się zmieniło wyświetlił się o tym komunikat stosyję kod;
begin if Edytor.Modified then case Application.MessageBox('W dokumęcie zaszły zmiany. Zapisać?','Uwaga',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
Wszystko działa. Gdy jednak dodam moduł językowy wszystkie napisy podaję kodem
JezykPobierz()
A w nawiasie podaję numer tekstu. Wygląda to tak:
begin if Edytor.Modified then case Application.MessageBox('JezykPobierz(2),'JezykPobierz(3)',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
Wtedy jednak nie skąpiluje mi program, bo wrzuca błąd w tej linii:
[Error] Unit1.pas(89): Incompatible types: 'String' and 'PAnsiChar' [Error] Unit1.pas(90): Incompatible types: 'String' and 'PAnsiChar' [Fatal Error] Edytor.dpr(6): Could not compile used unit 'Unit1.pas'
I co zrobi?
begin if Edytor.Modified then case Application.MessageBox('JezykPobierz(2),'JezykPobierz(3)',MB_YESNOCANCEL) of IDCANCEL: CanClose:=FALSE; YDYES: ZapiszClick(Sender); end; end;
JezykPobierz(2) nie ma zamykającego apostrofa.
Jest 'JezykPobierz(2) powinno być 'JezykPobierz(2)' B) :P
To mój błąd. To nie ma być w apostrofach bo wtedy wypisyje JezykPobierz(2) A on ma pobraćnapis.
No to w takim razie PCHAR(JezykPobierz(2))
No, to upraszcza sprawę. A z innej beczki: jak wygląda polecenie drukowania?
Edytor.???
Jeśli ten twój Edytor to TRichEdit to:
Edytor.Print('');
Jeśli TMemo to:
tutaj
A jak to jest SynEdit komponentu SynEdit?
Jak to jest SynEdit to zajrzyj najpierw do demek komponentu a dopiero potem zadawaj takie pytanie. :mad:
Ale chyba mógłbyś podać kod bo nie mogę znaleść żadnego programu z tym komponentem.
Ale chyba mógłbyś podać kod bo nie mogę znaleść żadnego programu z tym komponentem.
Skoro nie ma demka to poczytaj help'a.
A mógłbyś przynajmniej podać link do przeczytania