Deutsches Lazarusforum

Hallo, tut mir leid, dass ich mich noch nicht gemeldet habe. Leider sind mir Arbeiten unverhofft dazwischen gekommen die keinen Aufschub dulden.

Oh danke! das werde ich bald wissen

Ich möchte aus *.jpg Dateien den Header lesen und aus Datum und Aufnahmezeit einen Zusatz für den Dateinamen generieren. Mit der procedure

procedure TTestForm.RenameStartButtonClick(Sender: TObject);
var
Search : TSearchRec;
DateTime : TDateTime;
Zeit : string;
Datum : string;
oldFileNAme ...

Danke Dir. Nun wird es fehlerfrei übersetzt. Mal testen ob es so funktioniert wie ich das möchte.

Einen schönen Sonntag

Ich hoffe das sind die relevanten Teile:

type
TFindFiles = class;
TOnFindFile = procedure(Sender: TFindFiles, Filename: string) of object;
TOnDirectoryFind = procedure(Sender: TFindFiles, Directory: string) of object;
TFindFiles = class(TObject)

private
FSubfolders: Boolean;
FMask: string ...

Hallo zusammen,
ich möchte mit einem Event zwei Parameter übergeben

type
TFindFiles = class;
TOnFindFile = procedure(Sender: TFindFiles, Filename: string) of object;

und erhalte die Fehlermeldung: Syntax error, ")" expected but "," found.

Meines Wissens kann ich mehrere Parameter über geben ...

Danke Dir

Danke Dir Theo. Heißt das ich muss wirklich einen Zeiger zuweisen?

Hallo zusammen,
ich habe heute begonnen mich mit der Programmierung mit Hilfe von Lazarus zu beschäftigen. Ich möchte in einer eignen Klasse ein Ereignis erzeugen das ich in der MainForm nutzen möchte.

Meine Klasse:

type
TOnFindFile = procedure(Filename: string) of object;
TOnDirectoryFind ...