Ich bin blutiger Anfänger mit Lazarus und mache meine ersten Versuche.
Irgendwie komme ich mit dem Append-Befehl nicht zurecht.
Im oberen Teil des Programmes habe ich die "procedure Append" definiert und die var f als textfile.
Es kommt am Ende immer der Fehler, dass Assign die falsche Anzahl Parameter hat, was fehlt im noch alles?
Code: Alles auswählen
unit RZR1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
EingabeMorgen: TEdit;
EingabeMittag: TEdit;
EingabeNachmittag: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
LblAusgabe: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure EingabeMorgenChange(Sender: TObject);
procedure EingabeMittagChange(Sender: TObject);
procedure EingabeNachmittagChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure LblAusgabeClick(Sender: TObject);
procedure Append(var t : text);
private
public
end;
var
Form1: TForm1;
f : textfile;
Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var
DatumHeute : string;
LogFileLink : string;
begin
DatumHeute := FormatDateTime('dd.mm.yyyy', now);
LogFileLink := 'TimeLog.txt';
Assign(f, LogFileLink);
Append(f);
Writeln(f, DatumHeute);
Writeln(f, morgenzeit);
Writeln(f, mittagzeit);
Writeln(f, nachmittagzeit);
Writeln(f, '-->' + EndzeitAusgabe);
close(f);
end;