hallo,
delphi meint, dass verschiedene Labels nicht definiert seien, obwohl dies meiner meinung nach sehr wohl der fall ist...
Delphi-Quellcode:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm4 =
class(TForm)
Panel1: TPanel;
EdtEing: TEdit;
LblDNA1: TLabel;
LblmRNA1: TLabel;
LblDNA2: TLabel;
LblmRNA2: TLabel;
LblDNA3: TLabel;
LblmRNA3: TLabel;
LblDNA4: TLabel;
LblmRNA4: TLabel;
LblDNA5: TLabel;
LblmRNA5: TLabel;
LblDNA6: TLabel;
LblmRNA6: TLabel;
Button1: TButton;
procedure Panel1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure schreiben(
var ZeilenIndex:integer;ausgstrDNA, ausgstrmRNA :
string);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.Panel1Click(Sender: TObject);
begin
Panel1.Caption:= '
AAAAAAAAAAAAAAAAA';
Panel1.caption := Unit1.Unserstruct[1].dna;
end;
procedure schreiben(
var ZeilenIndex:integer;ausgstrDNA, ausgstrmRNA :
string);
//var
//scha:string;
begin
case ZeilenIndex
of
0:
LblDNA1.caption := LblDNA1.Caption + ausgstrDNA;
LblmRNA1.Caption := LblmRNA1.Caption + ausgstrmRNA;
1:
LblDNA2.Caption := LblDNA2.Caption + ausgstrDNA;
LblmRNA2.Caption := LblmRNA3.Caption + ausgstrmRNA;
2:
LblDNA3.Caption := '
';
LblmRNA3.Caption := '
';
3:
LblDNA4.Caption := '
';
LblmRNA4.Caption := '
';
4:
LblDNA5.Caption := '
';
LblmRNA5.Caption := '
';
5:
LblDNA6.Caption := '
';
LblmRNA6.Caption := '
';
else
errormsg();
end;
end;
nun sagt delphi sachen wie:
[Fehler] Unit4.pas(57): Undefinierter Bezeichner: 'LblDNA1'
[Fehler] Unit4.pas(57): Operator oder Semikolon fehlt
[Fehler] Unit4.pas(58): Undefinierter Bezeichner: 'LblmRNA1'
[Fehler] Unit4.pas(60): Undefinierter Bezeichner: 'LblDNA2'
[Fehler] Unit4.pas(60): Operator oder Semikolon fehlt
and so on
.
mfg, teetasse