Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Delphin ini-tiedosto

4 views
Skip to first unread message

UN

unread,
Dec 27, 2011, 8:32:25 AM12/27/11
to
Miten Delphin ini-tiedostossa, jossa esim. asetukset
Form1=
Form2='OK';
Form3=
löydetään key (Form2) jossa asetus 'OK'? Tarvitsematta käydä läpi
kaikkia asetuksia malliin
sValue:=iniSettings.ReadString(Name,'Form1',sValue);
if sValue='OK' then ...
--UN

essi-2

unread,
Dec 27, 2011, 4:46:33 PM12/27/11
to
UN wrote:
> kaikkia asetuksia malliin
> sValue:=iniSettings.ReadString(Name,'Form1',sValue);
> if sValue='OK' then ...

Jonkinlaisen loopin joutunet rakentamaan, sill� t�ysin valmista
funktiota tuollaiseen ei ole. Jotakin t�llaista voisi kokeilla, vaikka
itse en koodia kokeillut lainkaan, ett� k��ntyyk� edes:

var
i:integer;
B:Boolean;
begin
B:=False; // Default value
for i := 1 to 20 do
begin
if ValueExists('Form'+inttostr(i)) then
if := readString('Form'+inttostr(i)) = 'OK' then
begin
B := True;
Break; // Quit for loop
end;
end;
end;

UN

unread,
Dec 28, 2011, 4:14:16 AM12/28/11
to
On 27.12.2011 23:46, essi-2 wrote:
> Jonkinlaisen loopin joutunet rakentamaan, sillä täysin valmista
> funktiota tuollaiseen ei ole.
Ok, selvä juttu, kiitoksia!
--UN

Juha Piispa

unread,
Dec 28, 2011, 11:20:27 AM12/28/11
to
Looppi on hyvä, mutta jos haetaan vain yksittäistä riviä tai tietoa
onko OK:ta, niin Quick and Dirty tapa voisi olla:
1. Lue Ini tiedosto memoon/stringlist yms
2. Katso onko OK:ta esim. POS('OK',Memo.text)>0
no sitten paikka onkin helppo hakea ja siitä edestä tuo INI määritys.


Ja ennenkuin kommentoidaan, niin tuossa on monta kohtaa jossa mennä
vipuun. Esim OK voi olla sanan sisällä, entä jo useaa OK:ta otetaan
eka, jne.. Mutta Q&D ratkaisuna erittäin nopea.

Regards, Qapla'
Juha Piispa

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Juha Piispa
Moonsoft OY
0 new messages