Spara Som

[Mattias W]

Håller på med en Notepad, FÖljer Skolan på PC för Allas hemsida.

Men jag får inte Spara som funktionen att fungera.

Snälla hjälp mig

[Petter Holmström]

Jag har inte läst hur dom löser problemet, men jag skulle göra på följande sätt:

 

Lägg Saved: boolean; och Filnamn: string; i public delen högst uppe i programmet.

 

procedure TForm1.Spara;

begin

if not Saved then SparaSom;

Memo1.Lines.SaveToFile(Filnamn);

Memo1.Modified := False;

end;

 

procedure TForm1.SparaSom;

begin

if SaveDialog1.Execute then

begin

Filnamn := SaveDialog1.FileName;

Saved := True;

Spara;

end;

end;

 

Detta är skrivet direkt från huvudet och är inte testat. Men det kanske ger dig en idé hur du skall lösa problemet själv. Lycka till!