danke erstmal an Muetze1 ! (:
Delphi-Quellcode:
var
Form1: TForm1;
q:integer;
Type
TVektor = Record
a, b, c: Integer
End;
Var
aVektor: TVektor;
bVektor: TVektor;
cVektor: TVektor;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
aVektor.a := 1;
aVektor.b := 0;
aVektor.c := 160;
bVektor.a := 0;
bVektor.b := 1;
bVektor.c := 7;
while aVektor.a <> 0 do
begin
q:= bVektor.c DIV aVektor.a;
end;
end;
end.
So meintest du das doch oder ? ich hab nur noch nich so ganz verstanden wie du das mit der funktion meinst ? kann man dann nachher den kompletten vektor einem anderen vektor zuweisen ?
ich hab noch nie so richtig mit records und so gearbeitet, deswegen bin ich da nich so fit !
wenn du mir das nochmal etwas erklären könntest mit der funktion wär das spiitze !