Hallo,
ich habe ein Problem, das auch schon viele andere hatten, das die auch alle lösen konnten, nämlich die Fehlermeldung "Ungenügend Forward- oder External-Deklaration". Den Fehler, den ich gemacht hatte (ich hatte wie die anderen vergessen, den Typ vor meine Funktion zu schreiben) habe ich sogleich korrigiert, daraufhin kam aber eine neue Fehlermeldung ("Undefinierter Bezeichner '...'"). Wahrscheinlich ist das nur ein ganz dummer fehler, aber ich finde ihn einfach nicht.
Delphi-Quellcode:
unit Ausgeben;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Ausgabefelder;
type
TAusgabe =
class
public
function Tausgabe.Ausgabe(Inhalt,Code:
String):
String;
end;
implementation
function Ausgabe(Inhalt,Code:
String):
String;
var EditNR:Integer;
begin
EditNR:=strtoint(Ausgabefelder.Frame2.EditNR.text);
case EditNR
of
1:
begin
Ausgabefelder.Frame2.edit1.text:=(Inhalt);
Ausgabefelder.Frame2.edit51.text:=(Code);
end;
2:
begin
Ausgabefelder.Frame2.edit2.text:=(Inhalt);
Ausgabefelder.Frame2.edit52.text:=(Code);
end;
end;
end;
end.
Wenn ich auch vor das "Ausgabe" im Implementation-Teil ein "TAusgabe." setze bekomme ich eine weitere Fehlermeldung. Aber vielleicht könnt ihr mir ja sagen, was ich falsch mache.
Vielen Dank im Vorraus,
treuergebenst
Samufi