Beruga
Mitglied
ersteinmal Arne Buchwald, tut mit Leid wird nicht mehr vorkommen
ok, hier ist ersteinmal der Ausschnitt aus dem Code in dem die Werte der Variable tmpFeld wahllos verändert werden, also ich werde hier alle zugriffe auf tmpFeld angeben, so:
TFeld = record
x1, y1, x2, y2 : integer;
end;
...
TfrmMain = class(TForm)
...
private
tmpFeld : TFeld;
...
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
...
// Initialisierung
tmpFeld.x1 := 0;
tmpFeld.y1 := 0;
tmpFeld.x2 := 0;
tmpFeld.y2 := 0;
end;
procedure TfrmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tmpFeld.x1 := x;
tmpFeld.y1 := y;
end;
procedure TfrmMain.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tmpFeld.x2 := x;
tmpFeld.y2 := y;
end;
procedure TfrmMain.add1Click(Sender: TObject);
begin
// ok und an dieser Stelle entspricht tmpFeld.x1 dem Wert von tmpFeld.x2 und
// tmpFeld.y1 von tmpFeld.y2 was garnicht sein kann
if (tmpFeld.x1 <> tmpFeld.x2) and (tmpFeld.y1 <> tmpFeld.y2) then
...
end;
ok soweit das, ich hatte im laufe der lertzen 5 (solange arbeite ich schon mit Delphi) solche Probleme (zwar selten die die tratten aber auf), und das mit der Schleife war folgendermaßen,
for i := 0 to n do
...
ok die würde von 0 bis n zählen, NORMALER weise was die aber nicht tat, die zählte nähmlich von n bis 0 ... tja
ansonsten kann ich nur das was Gawayn wiederholen, und Hinterwäldler .. das war echt Frech
ok, hier ist ersteinmal der Ausschnitt aus dem Code in dem die Werte der Variable tmpFeld wahllos verändert werden, also ich werde hier alle zugriffe auf tmpFeld angeben, so:
TFeld = record
x1, y1, x2, y2 : integer;
end;
...
TfrmMain = class(TForm)
...
private
tmpFeld : TFeld;
...
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
...
// Initialisierung
tmpFeld.x1 := 0;
tmpFeld.y1 := 0;
tmpFeld.x2 := 0;
tmpFeld.y2 := 0;
end;
procedure TfrmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tmpFeld.x1 := x;
tmpFeld.y1 := y;
end;
procedure TfrmMain.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tmpFeld.x2 := x;
tmpFeld.y2 := y;
end;
procedure TfrmMain.add1Click(Sender: TObject);
begin
// ok und an dieser Stelle entspricht tmpFeld.x1 dem Wert von tmpFeld.x2 und
// tmpFeld.y1 von tmpFeld.y2 was garnicht sein kann
if (tmpFeld.x1 <> tmpFeld.x2) and (tmpFeld.y1 <> tmpFeld.y2) then
...
end;
ok soweit das, ich hatte im laufe der lertzen 5 (solange arbeite ich schon mit Delphi) solche Probleme (zwar selten die die tratten aber auf), und das mit der Schleife war folgendermaßen,
for i := 0 to n do
...
ok die würde von 0 bis n zählen, NORMALER weise was die aber nicht tat, die zählte nähmlich von n bis 0 ... tja
ansonsten kann ich nur das was Gawayn wiederholen, und Hinterwäldler .. das war echt Frech