Hab ein Problem.
Eigentlich sollte es kein Problem sein, aber irgendwie mach ich was falsch.
Also ich habe 2 Formulare..Form1 und Form2...und Form2 enthält mehrere TEdit Felder.
Nun soll bei einem Klick auf einem Button in Form 1 der Text aus Form2 ausgelesen werden.
Doch ich hänge schon bei dem auslesen des Textes in Form2...viel Text und kein Code nützt auch nichts, also hier:
Form2:
Delphi-Quellcode:
Unit Anzeige;
Interface
Uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
ExtCtrls;
Type
TForm2 =
Class(TForm)
Feld00: TEdit;
Feld01: TEdit;
Feld02: TEdit;
Feld03: TEdit;
Feld04: TEdit;
Feld05: TEdit;
Feld06: TEdit;
Feld07: TEdit;
Feld08: TEdit;
Feld10: TEdit;
private
{ Private-Deklarationen }
public
Function outFeld00: integer;
End;
Var
Form2: TForm2;
Implementation
{$R *.dfm}
{ TForm2 }
Function TForm2.outFeld00: integer;
Begin
Result := StrToInt(Feld00.Text);
// <---- hier steckt der Fehler
End;
End.
Noch Form 1 der entsprechende Teil:
Delphi-Quellcode:
Procedure TForm1.Button2Click(Sender: TObject);
Var
i, x, y, z: integer;
Begin
x := 0;
y := 0;
z := 1;
Sudoku[0, 0] := Form2.outFeld00;
End;
End.