
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

RTF szöveg tárolása az EXE-ben

Példaprogram letöltése

14191 bájt

Ha formázott szöveget akarunk alkalmazni programunkban, akkor ezt megtehetjük úgy is, hogy futásidőben hozzuk létre, mondjuk egy TRichEdit komponensben, vagy egy már előre létrehozott fájlt töltünk be. Ha viszont olyan szövegre van szükségünk, mely nem is változik, akkor sokkal jobban járunk, ha a szöveget egyenesen az EXE-ben tároljuk.

Ennek a módszernek vannak előnyei és hátrányai is. Előnye mindenképpen az, hogy a szöveget létrehozhatjuk egy szövegszerkesztőben, és elkerülhetjük azt, hogy bárki módosíthassa ezeket. Hátránya viszont az, hogy nagyobb fájlméret esetén jelentősen megnőhet az EXE mérete.

Most nézzük meg, hogy hogyan tárolhatunk a legegyszerűbben RTF fájlokat a programunkban.

Első lépésben hozzunk létre egy szövegfájlt, amibe a következő szöveget írjuk:

MYSZOVEG RCDATA SZOVEG.RTF

Ezt mentsük el RC kiterjesztéssel, és adjuk hozzá a Project-ünkhöz. Ha újrafordítjuk a programot, akkor a SZOVEG.RTF fájl bekerül az EXE-be.

Most nézzük meg, hogy az EXE-ben tárolt szöveget hogyan lehet, mondjuk egy TRichEdit komponensben megjeleníteni.
Ehhez létre kell hoznunk egy TResourceStream típusú változót. Ennek Create metódusában meg kell adni az Instance azonosítóját, ez 0 lesz. Ezután meg kell adnunk a szöveg nevét, ami a fenti példában "MYSZOVEG". Az utolsó paraméter az adat típusa, ami jelen esetben RT_RCDATA. Most már a RichEdit LoadFromStream metódusával betölthetjük a szöveget a komponensbe.

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  RS:TResourceStream;
begin
  RS:=TResourceStream.Create(0, 'MYSZOVEG', RT_RCDATA);
  try
    RichEdit1.Lines.LoadFromStream(rs);
  finally
    RS.Free;
  end;
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3333	Windows	Net Shell parancsok	1. rész
3367	Windows	Net Shell parancsok	2. rész
3396	Windows	Net Shell parancsok	3. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 315. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!