AV bei Stringvergleich

[Airblader]

erm...sorry...wieder was banales
Ich bekomm ein AV.
Mit Showmessages hab ich das problem ganz genau ausgegrenz.
und ich muss mich sehr wundern

Delphi-Quellcode:

if not (old_p_test = '0') then
begin

Wo bitte ist da ein Fehler

das old_p_test wird so ausgelesen (das alles ist in ner for-schleife):

old_p_test := ini.ReadString('Score','Name'+IntToStr(i),'0'); ALso langsam wirds echt ...

[Matze]

Hast du die Ini-Datei mit Create erstellt?


Nachtrag: Pro Frage ein Thread, in Zukunft.

[Airblader]

Klar hab ich:

ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'highscore.txt'); Ja: ini ist als TIniFile definiert.
Ja: ich hab IniFiles mit eingebunden.

air
p.s. sorry, dachte nur, das wird wieder sowas kleines sein, dass sich ein extrathread nicht lohnt

[Matze]

Jetzt sehe ich's erst, du hast wieder mal StrToInt vergessen:

Delphi-Quellcode:

if not (old_p_test = '0') then
begin

Hmm doch nicht

Ich geh jetzt mal ins Bett Sorry


Nachtrag: Zeig mal bitte deine for-Schleife.

[Airblader]

Daran liegts wie du festgestellt hast definitib nicht, da ich einen string lese und meine variable auch eine vom typ string ist

aber woran kann das liegen

Meine Schleife is ganz normal

Delphi-Quellcode:

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

[..]

Die showmessages waren die tests.
die erste kommt, die anderen nichtmehr

[Ultimator]

Probiers mal mit
if (old_p_test<>'0') then ... Aber eigentlich dürft's da keine AV geben...

[Airblader]

ich hab nun

Delphi-Quellcode:

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

[...]

probiert.
nun werdn die ersten zwei messages ausgegeben, das 3. nicht.
d.h. der fehler ist hier !?

old[9-i].name := '-'; old ist ein 'array of HighScore', wobei HighScore so aussieht:

Delphi-Quellcode:

type
  HighScore = record
    name: string;
    punkte: integer;
  end;
  
  TForm...

[StefanDP]

name ist ein reserviertes wort

[Airblader]

Zitat von StefanDP:

name ist ein reserviertes wort

Danke
aber nun hab ich das:

Delphi-Quellcode:

ShowMessage('1');
if (old_p_test = '0') then
begin
         ShowMessage('2');
         old[9-i].username := '-';
         ShowMessage('3');
[...]

Das '1' bekomm ich.
Das '2' auch.
Aber vor dem '3' (wird nicht ausgegeben) kommt wieder ein AV

Ich hab nun aber

Delphi-Quellcode:

type
  HighScore = record
    username: string;
    punkte: integer;
  end;

Sowie alle old[x].name zu old[x].username geändert.

Aber username ist doch kein reserviertes wort mehr

[Christian Seehase]

Moin Airblader,

probier's mal damit:

Delphi-Quellcode:

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