TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
je tam chybka 7 vyvodu z IO ktere vstupuji do 7 segmentu
Příspěvky odeslané z IP adresy 89.29.80.–
Ondřej
Ondřej
#1 balaam
Ja bych zkusil konkrétní integrovaný obvod který se používá pro 7 segmentové displaye.Podívej se na schémata se 7 segmentovým displayem.Ten obvod který je zapojen hned za 7 segmentem a vývody IO vstupují do IO melo by jich vstupovat 7 ABCDEFG.
vojtěch
Tak vyřešil sem to šalamounsky :-) Udělal načítání texťáku rovnou na míru.... tím nejstupidnějším způsobem. Stydím se za sebe :-D
vojtěch
No a nedalo by se to nějak obejít? Páč ten INI je takhle napevno zadaný... (DÚ ve škole) Případně jak jinak to dostat do toho pole? Normálně pomocí načtení texťáku a potom to nějak rozpoznat pomocí začátku řádku? Nebo jak? Předem díky za odpovědi
vojtěch
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
