To ting til en text editor (Newbie)

Gem:

smid en savedialog på din form og sæt filteret til *.txt

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.Execute then
  begin
    memo1.Lines.SaveToFile(Savedialog1.FileName);
  end;
end;

Nu har jeg gjord det men der er et problem. I den der savedialog. Når jeg trykker på Filter og derefter trykker på den knap med de 3 prikker kommer der et tomt vindue frem på skærmen hvor jeg ikke kan vælge nogen formater. Nå men jeg skrev så .txt direkte i Filter. Når jeg så gemmer kommer der bare en fil uden "efternavn".

i savedialogens defalutExt skriver du txt

Tak skal du have. Nu mangler jeg bare at få print til at virke

Never mind....;-) jeg fandt ud af det

Øhhh lige en ting. Når jeg printer kommer det helt oppe i venstre hjørne kan jeg ikke lave lidt margin

Hvilken Delphi-version har du?

delphi 6

Spørgsmålet er nemlig om du har QuickReport.

Hvilket faneblad skulle den så ligge under

QReport ...

JEg har et fanebled der hedder QReport

Du kan også prøve at kigge på http://www.pythia.dk/tips/vis_tip.php?id=12

Altså oprette en til memo med Visible := false; og bruge koden bag linket på den memo.
Når du så skal udskrive kopierer du teksten fra din almindelige memo (Memo2.Text := Memo1.Text) over i den usynlige og udskriver derfra.

øhhhh??

Der er godt nok margin på når jeg skriver men det er der ikke når jeg printer. Din forrige post fattede jeg ikke så meget af;-)

Øv, så må du bruge QuickReport. Jeg har selv ikke den store er faring med QuickReport, men prøv at lege med det :-)

ok

er faring = erfaring