Meherene Überprüfungen

[Deadinpac]

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