Delphi-Quellcode:
w20 := StrToInt(ptsw20.caption);
w50 := StrToInt(ptsw50.caption);
w100 := StrToInt(ptsw100.caption);
if s=20 then
begin
if z > w20 then
begin
ptsw20.Caption:=inttostr(z);
rekw20.Caption:=(name.text);
end;
end
else
if s=50 then
begin
if z > w50 then
begin
ptsw50.Caption:=inttostr(z);
rekw50.caption:=(name.Text);
end;
end
else
if s=100 then
if z > w100 then//fehler ptsw100 wird immer upgedatet
begin
ptsw100.caption:=inttostr(z);
rekw100.Caption:=(name.Text);
end;
Welchen Wert hat den z und w100 zu dem Zeitpunkt?
Grüße
Klaus
[edit]
if..then etwas angepasst [/edit]