Da wir in der schule grad mit Delphi anfangen, hab ich mir für zuhause einen Editor gesucht und bin auf Lazarus gestoßen.
Mit Hilfe des Grundlagen-Tuts auf delphi-treff.de habe ich ein ultrakleines und simples Programm gebastelt.
Das einzige was es kann:
Wenn ich auf einen Butten klicke soll sich das Programm schließen
Doch das geht nicht....
Die Fehlermeldung:
Code: Alles auswählen
mep.lpr(11,40) Error: Duplicate identifier "MEP"
mep.lpr(1,1) Fatal: Can't find unit Interfaces used by mepCode: Alles auswählen
unit mep_unit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
initialization
{$I mep_unit.lrs}
end.Code: Alles auswählen
program mep_program;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add units after this }, mep_unit;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.Wäre cool wenn ihr mir helfen könntet
Verein
Links
Suche