Hvis jeg så skal finde ud af hvor det første nul er henne, hvordan gør jeg så det? Jeg kan selv se at det er ved nummer 2, men hvordan får jeg computeren til det?
Skal der også findes et 0 hvis den er i [Standard], hvis det er tilfældet kan man vel lave en lykke der går i gennem alle sektioner og alle værdier i alle sektioner.
Jeg går ud fra at din ini file ligger i samme sti som din exe fil:
procedure FindNul(var Name : string); var Inifile : TInifile; Values : TStringList; i : integer; begin Inifile:=TInifile.Create(ExtractFilePath(ParamStr(0))+'dinfil.ini'); Values:=TStringList.Create;
Inifile.ReadSectionValues('Kilo',Values); for i:=0 to Values.Count-1 do if Values.ValueFromIndex[i]='0' then begin Name:=Values.Names[i]; Break; end;
Values.Free; Inifile.Free; end;
-------------------
Kaldes sådan:
var Name : string; begin FindNul(Name); showmessage(Name); end;
Du er nødt til at løbe igennem alle nøgler i sektion [Kilo]. Hvis du ikke kan bruge en løkke, må du registrere alle nøglernes navne på en eller anden nåde og så løbe igennem dem og aflæse værdierne.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.