Witam
Mam program który otwiera pliki tekstowe .txt i zawartość ładuje do pola Memo. Potem moge sobie modyfikować zawartość pola Memo, i mam Button odpowiedzialny za okno zapisu i wywołanie SaveDialog.
Na początku kodu przycisku Button mam ustawione filtry:
SaveDialog1.Filter:='Plik tekstowy(.txt)|.txt|Dokument HTML(.html)|.html|Wszystkie pliki(.)|.';
SaveDialog1.DefaultExt:='Plik tekstowy(.txt)|.txt|Dokument HTML(.html)|.html|Wszystkie pliki(.)|.';
Potem mam petle ktora podmienia jakies slowo i wstawia z pola edit:
s:=Memo2.Text;
while pos('TYTUL',s)<>0 do
begin
a:=pos('TYTUL',s);
delete(s,a,5);
insert(Edit1.Text,s,a);
end;
Memo2.Text:=s;
I na końcu kodu mam:
if SaveDialog1.Execute then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
I teraz pytanie: Czy da się zrobić (a jeśli tak to jak) tak, aby przy wywolaniu SaveDialog, i wybrania rozszerzenia pliku jako .html program jeszcze mógl znalezc słowo KOD i wstawić konkretną linijke tekstu, np:
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
Dla przykładu: jesli wybiore zapisz jako txt, to program usunie slowo KOD, a gdy wybiore zapisz jako .html to program wstawi zamiast slowa KOD, <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
Chyba trzeba wstawic jakis kod do savedialog, tylko zupelnie nie mam pomyslu jak to zrobic:(