Ĺadny brzuch
Hey
Załóżmy, że chciałbym umieścić w programie możliwość tworzenia nowych plików (np. Plik -> Nowy -> HTMLDoc), ale już wypełnionych, np. coś takiego:
<html> <head> </head> <body> </body> </html>
Wiem, że dałoby się to tak wykombinować:
var PlikHTML_cz_1: string; PlikHTML_cz_2: string; .. PlikHTML_cz_1 := '<html>'; PlikHTML_cz_2 := ' <head>'; .. Memo1.Lines.Add(PlikHTML_cz_1); Memo1.Lines.Add(PlikHTML_cz_2); ..
ale nie o to mi chodzi.
Wolałbym, by w jednej zmiennej były wszystkie potrzebne mi linie. Napewno musiałyby być oddzielone jakimś znakiem końca lini. Tylko jakim? Proszę również o alternatywne rozwiązania, jeśli ktoś na takowe wpadł.
Wielkie dzięks za odpowiedzi.
Użytkownik pbnan edytował ten post 17 kwiecień 2006, 18:59
var s: string; begin s := '<html>' + #13#10 + '<head>'... Memo1.Lines.Add(s);
Lepiej zapisz sobie ten szablon w jakimś pliku, a potem tylko Memo1.Lines.Loadfromfile() ;)
Użytkownik lukexpert edytował ten post 17 kwiecień 2006, 19:18
Albo zapisz sobie takie szablony jako pliki tekstowe i skompiluj je do zasobów. Później tylko wstawiasz z zasobów i no problemo :) Chociaż rozwiązanie lukexperta jest bardziej uniwersalne, bo dajesz użytkownikowi możliwość modyfikowania szablonów wg jego uznania :)
Wolałbym używać rozwiązania lukexpert niż ładować z zasobów, ale to mi nie działa.
Zamiast nowej lini pokazyją się takie kwadraciki.
PS. Korzystam z SynEdita, nie z memo.
Wolałbym używać rozwiązania lukexpert niż ładować z zasobów, ale to mi nie działa.
Zamiast nowej lini pokazyją się takie kwadraciki.
PS. Korzystam z SynEdita, nie z memo.
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
wpisz w oncliku buttona:
SynEdit1.lines.add('<html>'); SynEdit1.lines.add('<head>'); SynEdit1.lines.add('<body>'+#13); SynEdit1.lines.add('</body>'); SynEdit1.lines.add('</html>');
Przecież pisałem, że takie rozwiązanie jest nie-ten-tego. Poza tym #13 też wyświetla się prostokąt.
PS. Zapis lukexperta rozumiem doskonale.
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
Mam #13, a i tak nic nie działa.
Nie-ten-tego: nie takie, jakie powinno być.
Użytkownik pbnan edytował ten post 18 kwiecień 2006, 13:52
Mam #13.
Nie-ten-tego: nie takie, jakie powinno być.
Mam #13, a i tak nic nie działa.
Nie-ten-tego: nie takie, jakie powinno być.
Kod procedury:
procedure TForm1.PlikHTML1Click(Sender: TObject); var s: string; begin Zapytanie(Sender); //sprawdza czy zmodyfikowano i, ew, wyswietla zapytanie czy zapisać Edytor.Lines.Clear; s := '<html>' + #13#10 + ' <head>' + #13#10 + ' </head>' + #13#10 + ' <body>' + #13#10 + ' </body>' + #13#10 + '</html>'; Edytor.Lines.Add(s); Edytor.CaretY := 5; Edytor.Visible := true; Edytor.Modified := false; Nazwa_pliku := ''; end;
I #13, i #13#10 nie działa.
...
I #13, i #13#10 nie działa.
Kod procedury:
procedure TForm1.PlikHTML1Click(Sender: TObject); var s: string; begin  Zapytanie(Sender); //sprawdza czy zmodyfikowano i, ew, wyswietla zapytanie czy zapisać  Edytor.Lines.Clear;  s := '<html>' + #13#10 + '  <head>' + #13#10 + '  </head>' + #13#10 + '  <body>' + #13#10 + '  </body>' + #13#10 + '</html>';  Edytor.Lines.Add(s);  Edytor.CaretY := 5;  Edytor.Visible := true;  Edytor.Modified := false;  Nazwa_pliku := ''; end;
I #13, i #13#10 nie działa.
Dobra, działa.
Wreszcie...
Dzięki wszystkim za pomoc, a zwłaszcza lukexpertowi.
PS. Lukexpert: nie Edytor.Lines.Text, lecz Edytor.Text
Dobra, działa.
Wreszcie...
Dzięki wszystkim za pomoc, a zwłaszcza lukexpertowi.
PS. Lukexpert: nie Edytor.Lines.Text, lecz Edytor.Text
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Załóżmy, że chciałbym umieścić w programie możliwość tworzenia nowych plików (np. Plik -> Nowy -> HTMLDoc), ale już wypełnionych, np. coś takiego:
<html> <head> </head> <body> </body> </html>
Wiem, że dałoby się to tak wykombinować:
var PlikHTML_cz_1: string; PlikHTML_cz_2: string; .. PlikHTML_cz_1 := '<html>'; PlikHTML_cz_2 := ' <head>'; .. Memo1.Lines.Add(PlikHTML_cz_1); Memo1.Lines.Add(PlikHTML_cz_2); ..
ale nie o to mi chodzi.
Wolałbym, by w jednej zmiennej były wszystkie potrzebne mi linie. Napewno musiałyby być oddzielone jakimś znakiem końca lini. Tylko jakim? Proszę również o alternatywne rozwiązania, jeśli ktoś na takowe wpadł.
Wielkie dzięks za odpowiedzi.
Użytkownik pbnan edytował ten post 17 kwiecień 2006, 18:59
var s: string; begin s := '<html>' + #13#10 + '<head>'... Memo1.Lines.Add(s);
Lepiej zapisz sobie ten szablon w jakimś pliku, a potem tylko Memo1.Lines.Loadfromfile() ;)
Użytkownik lukexpert edytował ten post 17 kwiecień 2006, 19:18
Albo zapisz sobie takie szablony jako pliki tekstowe i skompiluj je do zasobów. Później tylko wstawiasz z zasobów i no problemo :) Chociaż rozwiązanie lukexperta jest bardziej uniwersalne, bo dajesz użytkownikowi możliwość modyfikowania szablonów wg jego uznania :)
Wolałbym używać rozwiązania lukexpert niż ładować z zasobów, ale to mi nie działa.
Zamiast nowej lini pokazyją się takie kwadraciki.
PS. Korzystam z SynEdita, nie z memo.
Wolałbym używać rozwiązania lukexpert niż ładować z zasobów, ale to mi nie działa.
Zamiast nowej lini pokazyją się takie kwadraciki.
PS. Korzystam z SynEdita, nie z memo.
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
wpisz w oncliku buttona:
SynEdit1.lines.add('<html>'); SynEdit1.lines.add('<head>'); SynEdit1.lines.add('<body>'+#13); SynEdit1.lines.add('</body>'); SynEdit1.lines.add('</html>');
Przecież pisałem, że takie rozwiązanie jest nie-ten-tego. Poza tym #13 też wyświetla się prostokąt.
PS. Zapis lukexperta rozumiem doskonale.
Zasadniczo nie wiele róźni się ono od rozwiązania lukexperta :mellow:
Mam #13, a i tak nic nie działa.
Nie-ten-tego: nie takie, jakie powinno być.
Użytkownik pbnan edytował ten post 18 kwiecień 2006, 13:52
Mam #13.
Nie-ten-tego: nie takie, jakie powinno być.
Mam #13, a i tak nic nie działa.
Nie-ten-tego: nie takie, jakie powinno być.
Kod procedury:
procedure TForm1.PlikHTML1Click(Sender: TObject); var s: string; begin Zapytanie(Sender); //sprawdza czy zmodyfikowano i, ew, wyswietla zapytanie czy zapisać Edytor.Lines.Clear; s := '<html>' + #13#10 + ' <head>' + #13#10 + ' </head>' + #13#10 + ' <body>' + #13#10 + ' </body>' + #13#10 + '</html>'; Edytor.Lines.Add(s); Edytor.CaretY := 5; Edytor.Visible := true; Edytor.Modified := false; Nazwa_pliku := ''; end;
I #13, i #13#10 nie działa.
...
I #13, i #13#10 nie działa.
Kod procedury:
procedure TForm1.PlikHTML1Click(Sender: TObject); var s: string; begin  Zapytanie(Sender); //sprawdza czy zmodyfikowano i, ew, wyswietla zapytanie czy zapisać  Edytor.Lines.Clear;  s := '<html>' + #13#10 + '  <head>' + #13#10 + '  </head>' + #13#10 + '  <body>' + #13#10 + '  </body>' + #13#10 + '</html>';  Edytor.Lines.Add(s);  Edytor.CaretY := 5;  Edytor.Visible := true;  Edytor.Modified := false;  Nazwa_pliku := ''; end;
I #13, i #13#10 nie działa.
Dobra, działa.
Wreszcie...
Dzięki wszystkim za pomoc, a zwłaszcza lukexpertowi.
PS. Lukexpert: nie Edytor.Lines.Text, lecz Edytor.Text
Dobra, działa.
Wreszcie...
Dzięki wszystkim za pomoc, a zwłaszcza lukexpertowi.
PS. Lukexpert: nie Edytor.Lines.Text, lecz Edytor.Text