Forum: Object-Pascal / Delphi-Language
Delphi
by hadschi92,
20. Apr 2009
Ok, ich habe jetzt Pixel.A und Pixel.B direkt verglichen, damit wäre das Problem gelöst.
Nur interessehalber, wie kann ich den Speicher direkt vergleichen und mit was ist eine "Vergleichsmethode spendieren" gemeint?
Forum: Object-Pascal / Delphi-Language
Delphi
by hadschi92,
20. Apr 2009
Ok, Low() wird wohl das unterste Element sein.
Er will aber immer noch nicht, immer beklagt er sich, bei mir sieht das jetzt so aus:
for I := Low(Aktive_Pixel) to High(Aktive_Pixel) do
if Aktive_Pixel = Pixel then
In_Array := true;
if not In_Array then begin
SetLength(Aktive_Pixel, Length(Aktive_Pixel)+1);
Aktive_Pixel := Pixel;
Forum: Object-Pascal / Delphi-Language
Delphi
by hadschi92,
20. Apr 2009
Also mit einer Schleife? In etwa so:
for i := 0 to High(Aktive_Pixel) do
if Aktive_Pixel = Pixel then
Result := true
else
Result := false;
Forum: Object-Pascal / Delphi-Language
Delphi
by hadschi92,
20. Apr 2009
Ich will überprüfen, ob ein Wert bereits in einem Array vorhanden ist, jedoch bringt der Compiler bei mir einen Fehler. Kann es sein, dass man mit "if x in array" nur Zahlen in Arrays finden kann?
Mein Code sieht so aus:
procedure TForm1.Button4Click(Sender: TObject);
type TPixel = record
A: Integer;
B: Integer;
end;
var Aktive_Pixel: array of TPixel;
Pixel: TPixel;