AV bei Stringvergleich

[Airblader]

Zitat von Christian Seehase:

Moin Airblader,

probier's mal damit:

Delphi-Quellcode:

for i := 0 to high(old) do // 0..9 
...
old[high(old)-i].username := '-';

Bringt leider auch nichts

Hier nochmal die komplette Schleife:

Delphi-Quellcode:

for i := 0 to 9 do // 0..9
        begin
                old_p_test := ini.ReadString('Score','Name'+IntToStr(i),'0');
                ShowMessage('1');
                if (old_p_test = '0') then
                begin
                        ShowMessage('2');
                        old[9-i].username := '-';
                        ShowMessage('3');
                end else
                        old[9-i].username := Form3.XORString(old_p_test,key);

        
                old_p_test := ini.ReadString('Score','Punkte'+IntToStr(i),'0');
                if old_p_test<>'0' then
                        old[9-i].punkte := StrToInt(Form3.XORString(old_p_test,key))
                else
                        old[9-i].punkte := 0;
        end;    // 0..9

und hier meine vars:

Delphi-Quellcode:

var
        key: string; // XOR KEY
        i: integer; // Schleifen
        old: array of HighScore;
        Pos: integer;
        user_punkte: integer;
        old_p_test: string;

Und hier definier ich die für die schleife wichtigen:

Delphi-Quellcode:

// Key
        key := 'xxxxxxxxxxxxxxxxxxxxxxxx';
        // Punkte
        user_punkte := StrToInt(Form3.Edit1.Text);
        // INI Handle
        ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'highscore.txt');

das 'xxxxxxxxxxxxxxxxxxxxxxxxxx' stimmt natürlich nicht