Projekt kompilieren, Ziel: bahn.exe: Exit code 1, Fehler: 1, Hinweise: 1
nachrichtenfeld.pas(26,1) Error: Duplicate identifier "nachrichtenfeld"
nachrichtenfeld.pas(26,1) Hint: Identifier already defined in nachrichtenfeld.pas at line 7
Code: Alles auswählen
unit nachrichtenfeld;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TNachrichtenfeld }
TNachrichtenfeld = class(TForm)
ja: TButton;
Nein: TButton;
Ignorieren: TButton;
Nachrichtentext: TEdit;
private
{ private declarations }
public
{ public declarations }
function nachricht(t,j,n,i:string):string;
end;
var
Nachrichtenfeld: TNachrichtenfeld;
implementation
{$R *.lfm}
function nachricht(t,j,n,i:string):string;
begin
nachricht := t+j+n+i;
//nachrichtenfeld.visible := true;
end;
end.
Der Fehler tritt auf in der Zeile nach var.
Ich kann keine Doppelung des identifires nachrichtenfeld finden. auch die 3. Zeile der Fehlermeldung gibt mir Rätsel auf. In Zeile 7 gibt es ja auch keinen entsprechenden Eintrag.