Vprašanje

[eho]

ej naredil bi word in kako bi naredil da savedialog1 shrani v txt datoteko tist kar je on napisu.pa še kok bi naredil da klikneš pa nrdi črke bol debele pa to.pa printdialog1 nevem kva morem nrdit da bi printo.pa za fontdialog neznam HELP!

[blspider]

ej mau si falu rubrko pa mau s poglj pravopis pol k bos pa to nardu pa mau poglej koko lohko uporabljas f1 tipko k je notr ful zanimvfga. OKEJ !

Sicer pa, če bi res malo pogledal pomoč in bi iskal po TSaveDialog bi videl da ima TSaveDialog lepo metodo Execute.

Koda: Izberi vse

If SaveDialog1.Execute then
  RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);

Za naprej pa kar malo F1.

Lp, Rok

[eho]

hvala

[blspider]

Najlazje dobis informacije (o vseh dialog komponentah) tako da vrzes komponento na formo ter pritisnes F1. Sicer pa gres na index ter napises npr TSaveDialog. Ko izberes najprimernejse poglavje se ti odprejo informacije o komponenti. Potem pa poglej pod properties ter methods. Imena so logicna ter ti morajo hitro padet v oci.

Lp, Rok

[eho]

sj deluje sam k pogledaš piše not {\rtf1\ansi\ansicpg1250\deff0\deflang1060{\fonttbl{\f0\fnil\fcharset238 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs16 dsdsdfsadfsd\f1
\par
\par }

[flyingv]

Seveda, ker je to rtf datoteka.

[mspiller]

Ce bi rad dobil samo besedilo iz RichEdita uporabi (neformatiran text):

Koda: Izberi vse

procedure SaveToFile(str: String; fn: TFileName);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create (fn, fmCreate);
  try
    fs.Write(str[1], Length(str));
  finally
    fs.Free;
  end;
end;


begin
   SaveToFile(RichEdit1.Text, 'C:\bla.txt');
end;

Pa poglej si en lep primer, ki je zravn delphija v [DELPHIPATH]\Demos\Richedit. Glede izbire fonta, shranjevanje, itd itd ...

lp, MAtej
P.S. pa za drugic bodi bolj specificen v topicu