Moin,
Ich habe noch mal ein frage ich habe es jetzt so gemacht
Delphi-Quellcode:
var
Form4: TForm4;
a, b, c, i: Integer;
d:String;
implementation
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
begin
Label2.Caption := IntToStr(Form3.Table1.RecordCount);
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
a := StrToInt(Label2.Caption);
for i:=a downto 1 do
begin
if ( StrToInt(DBEdit2.Text) > 0 ) then
b := 1
else
if ( StrToInt(DBEdit2.Text) < 0 ) then
b := 2
else
if ( StrToInt(DBEdit2.Text) = 0 ) then
b := 3
end;
for i:=a downto 1 do
begin
if ( DBEdit3.Text = 'Leader' ) then
c :=b+5
else
if ( DBEdit3.Text = 'SFB' ) then
c :=b+10
else
if ( DBEdit3.Text = 'Member' ) then
c :=b+15
else
if ( DBEdit3.Text = 'Sonstiges' ) then
c :=b+20;
begin
Memo1.Lines.Add(DBEdit1.Text + ' Wert ' + IntToStr(c));
Form3.DataSource1.DataSet.Next;
end;
end;
So jetzt gib ich folgende werte an
Test1 -2000 Leader
Test2 -2000 SFB
Test3 -2000 Member
Test4 -2000 Sonstiges
da Kommt raus
Test1 Wert 7
Test2 Wert 12
Test3 Wert 17
Test4 Wert 22
Ist ja auch richtig so gebe ich aber jetzt Test1 einen 0 Betrag d.h so
Test1 0 Leader
Test2 -2000 SFB
Test3 -2000 Member
Test4 -2000 Sonstiges
Kommt das raus
Test1 Wert 8 <--- ok ist ja auch richtig
Test2 Wert 13.\
Test3 Wert 18..}<--- Bei jeden 1 Wert Höher obwohls der Gleiche Betrag und Gleicher Rang ist wie voher
Test4 Wert 23./
Und das vesteh ich ned und ich finde so auch kein Fehler im QT
MFG
Deadinpac