TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Zdravím a pozdravuji.
Mám takový menší problém. Pokouším se do programu načíst tento ini soubor:
[objekt]
width=100
height=150
left=350
top=50
bmp=vokoun.bmp
text=Tomáš Vokoun - brankář
[objekt]
width=100
height=150
left=200
top=220
bmp=kubina.bmp
text=Pavel Kubina - obránce
[objekt]
width=100
height=150
left=500
top=220
bmp=kaberle.bmp
text=Tomáš Kaberle - obránce
[objekt]
width=100
height=150
left=200
top=380
bmp=straka.bmp
text=Martin Straka - útočník
[objekt]
width=100
height=150
left=350
top=380
bmp=prospal.bmp
text=Václav Prospal - útočník
[objekt]
width=100
height=150
left=500
top=380
bmp=jagr.bmp
text=Jaromír Jágr - útočník
Podařilo se mi načíst první sekci pomocí toho kódu (pocitadlo je proměnná, která počítá kolik tam je záznamů, obrazky je dynamické pole ):
...
pocitadlo:=0;
...
IniSoub := TIniFile.Create(opendialog1.FileName);
try
obrazky[pocitadlo].sirka := IniSoub.ReadInteger('Objekt', 'width', 100);
obrazky[pocitadlo].vyska := IniSoub.ReadInteger('Objekt', 'height', 100);
obrazky[pocitadlo].vlevo := IniSoub.ReadInteger('Objekt', 'left', 0);
obrazky[pocitadlo].shora := IniSoub.ReadInteger('Objekt', 'top', 0);
obrazky[pocitadlo].cesta := IniSoub.ReadString('Objekt', 'bmp', '');
obrazky[pocitadlo].poznamka := IniSoub.ReadString('Objekt', 'text', '');
finally
IniSoub.Free;
end;
To je všecko pěkné. Až na to, že mi to načítá pouze první sekci. A já bych potřeboval, aby to postupně naplnilo to pole obrazky všemi česti sekcemi. Ví někdy z vás jak na to? Lámu si s tím hlavu třetí den a stále nic... předem díky za jakékoli postrčení :-)
Přeju pěkný den
Nahlásit jako SPAM
IP: 89.29.80.–
God of flame
Zjistit počet nových příspěvků
