Dateinamen vergeben (ansteigend)

[Assun]

Hi !

wie kann ich ansteigende Dateinamen vergeben ? z.b. beim 1. Klick wird datei 001.jpg erstellt, beim 2.klik die datei 002.jpg...

wie geht das ß?

danke im Voraus,

Euer Assun

[mr47]

du lässt einfach einen Integer mitlaufen, der immer eins höher gezählt wird (also bei jedem Klick) und wandelst den Integer dann in einen String um.

mfg

[ReDoX]

Hi
Deklarie eine Globale variable im OnCreate setze sie auf 0.
Bei einem Click auf den BUtton machst du Inc(deineVariable) und danach speicherst du das bild Image+IntToStr(deinevariable).
Mfg ReDoX

[Luckie]

Globale Variable im private Bereich und mit Inc hochzählen nach jedem Klick.

[malo]

Im Chat hörst du ja nicht auf mich, deshalb hier ein Code.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    i: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(i);
end;

end.

Die erhöht die Variable. Jetzt musst du nach jedem Screenshot einmal inc(i) schreiben und die Zahl in den Dateinamen schreiben. Fertig.

[MathiasSimmack]

Und was, wenn ich jetzt 20 Bilder gespeichert habe, und "bild20.jpg" lösche?

[malo]

Zitat von MathiasSimmack:

Und was, wenn ich jetzt 20 Bilder gespeichert habe, und "bild20.jpg" lösche?

Dann gehts trotzdem mit 21 weiter

Die Zahl solltest du übrigens irgendwo speichern (in einer .ini oder in der Registry), damit du sie jederzeit auslesen kannst

[3_of_8]

Wenn man die führenden Nullen angeben will, muss man noch folgendes machen:

Delphi-Quellcode:

const prefix='JPG'
      stellen=3

...

zahlstr:=inttostr(zahl);
for I:=1 to stellen-length(zahlstr) do
zahlstr:='0'+zahlstr;
//Und dann noch:
dateiname:=prefix+zahlstr;

[Luckie]

Zitat von 3_of_8:

Wenn man die führenden Nullen angeben will, muss man noch folgendes machen:

Delphi-Quellcode:

const prefix='JPG'
      stellen=3

...

zahlstr:=inttostr(zahl);
for I:=1 to stellen-length(zahlstr) do
zahlstr:='0'+zahlstr;
//Und dann noch:
dateiname:=prefix+zahlstr;

Format.

[3_of_8]

Ich weiß, ich kompliziere alles, aber (!) es funktioniert.