Stimmt, mal sehen, vllt nehm ich sie raus, wenn das Progrmm mal läuft
Hab mich nämlich zu früh gefreut...
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var fac: real;
begin
label_error.Caption:='';
if stepstogo>0 then
begin
for i:=(n-(stepstogo-1)) to n do
begin
fac:=strtofloat(TEdit[findcomponent(e+'1'+inttostr(i))].text)/strtofloat(TEdit[findcomponent(e+'1'+inttostr(i-1))].text);
for j:=(n-stepstogo) to n do
begin
TEdit[findcomponent(e+inttostr(j)+inttostr(i))].text:=inttostr(strtofloat(TEdit[findcomponent(e+inttostr(j)+inttostr(i))].text)-strtofloat(TEdit[findcomponent(e+inttostr(j)+inttostr(i-1))].text)*fac);
end;
end;
stepstogo:=stepstogo-1;
end;
end;
Das ist die Prozedur, die immer einen Lösungsschritt machen soll. Es scheint allerdings Probleme mit dem Zugriff auf die Edits per findcompopnent zu geben. Ich bekomme die Meldung 'Inkompatible Typen', 'Arraytyp erforderlich'. Keine Ahnung wo das herkommt, arebite ich denn irgendwo mit Arrays?