TStringGrid in Delphi7 und XE

[jan001]

Hier ist link zu Projekt im D7 und XE5.
http://www.a101.de/test/D7.ZIP
http://www.a101.de/test/XE5.ZIP

[baumina]

Delphi-Quellcode:

program Project1;

uses
  Vcl.Forms,
  Unit1 in '..\test7\Unit1.pas' {Form1}; // ist das wirklich die richtige unit?????

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1); // warum eigentlich 2mal?????
  Application.CreateForm(TForm1, Form1); // warum eigentlich 2mal?????
  Application.Run;
end.

[MEissing]

Das Projekt, wenn man es angepasst hat (UNIT-Verzeichnis), zeigt in der Tat den Fehler....

Fügt man die Unit in ein neues Projekt ein, so funktioniert's.

Also/Lösung: Neues Projekt aufmachen und die Units rüberziehen (oder wahlweise die Projekteinstellungen vergleich/angleichen)

[jan001]

Ich habe übersehen dass Compiler 2x Application.CreateForm(TForm1, Form1);
geschrieben hat. Das war Grund für den Fehler.

[MEissing]

Gut das es gelöst ist

Das erklärt auch, warum es in einem neuen Projekt funktioniert.... habe ich übersehen (wer guckt da schon hin )

Naja.... doppelt gemoppelt hält nicht besser

[sx2008]

Du machst einen ganz bösen Fehler indem du innerhalb der Klasse TForm1 auf die Instanz Form1 zugreifst!!!

Jede Methode hat einen versteckten Parameter mit dem Namen self.
Zu Verdeutlichung ändere ich die Methode in eine Procedure und übergebe den Self-Parameter:

Delphi-Quellcode:

procedure TForm1__StringGrid1MouseUp(Self: TForm1; Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Self.Label1.Caption:= Self.StringGrid1.Cells[ self.StringGrid1.Col,  self.StringGrid1.Row];
 Self.Label2.Caption:= Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row];
end;

Da aber self und Form1 auf unterschiedliche Objekte verweisen können, bringt dich die Benüzung von Form1 in Teufels Küche.
Innerhalb einer Klasse anstatt über self auf Form1 zuzugreifen ist ganz eindeutig ein Fehler!

[DeddyH]

Zitat von sx2008:

Du machst einen ganz bösen Fehler indem du innerhalb der Klasse TForm1 auf die Instanz Form1 zugreifst!!!

Mir scheint, Du hast den Thread nicht von Anfang an gelesen.

[sx2008]

Zitat von DeddyH:

Zitat von sx2008:

Du machst einen ganz bösen Fehler indem du innerhalb der Klasse TForm1 auf die Instanz Form1 zugreifst!!!

Mir scheint, Du hast den Thread nicht von Anfang an gelesen.

Der TE hat den Grund gesucht, weshalb Delphi7 und XE unterschiedlich (auf fehlerhaften Code) reagieren, oder?
Aber Fehler bleibt Fehler und die Ursache zu finden weshalb ein fehlerhafter Code mal funktioniert und mal nicht ist eher nachrangig.
Wichtiger ist IMHO den Fehler zu erkennen und auszumerzen.

[DeddyH]

Er wollte aus einem anderen Formular heraus auf das Stringgrid in Form1 zugreifen. Ob das elegant ist oder nicht, sei dahingestellt, aber jetzt ein Fass aufzumachen von wegen Fehler halte ich für übertrieben.