Formularinhalt in einem Ordner speichern

**alnourx**

Hallo,

Ich bin Delphiangänger, und momentan versuche ich diese wundarbare Sparche zu lernen, und ich hoffe, dass ihr mir dabei helft.
Ok, mein Problem lautet:
Ich wollte einen Formularinhalt als Bild JPEG in einem Ordner speichern, und das ging ganz gut, aber aber wenn ich einen anderen Formularinhalt speichern wollte, wird der erste Formularinhalt überschrieben. Wie kann ich mehrere Formularinhalte in einem Ordner speichern??
für euere Vorschläge danke ich euch im Voraus.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls,jpeg ;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Edit3: TEdit;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private-Deklarationen }

    a,b,c: real;

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

     a := StrToFloat(Edit1.text);

     b := StrToFloat(Edit2.text);

     c := a * b;

     Edit3.Text := FloatToStr(c);

end;

procedure SaveJPEG(Form: TCustomForm; const Path: String);

var 

  Bitmap: TBitmap; 

  JPEG: TJPEGImage; 

begin 

  Bitmap := Form.GetFormImage; 

  JPEG := TJPEGImage.Create;

  JPEG.Assign(Bitmap); 

  JPEG.SaveToFile(Path); 

  JPEG.Free;

  Bitmap.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  SaveJPEG(Self, 'C:\Dokumente und Einstellungen\BEN\Desktop\Delphi5\Form1.jpg');

 end;

end.

Formularinhalt in einem Ordner speichern

Formularinhalt in einem Ordner speichern

Forumregeln