Ini-Dateien und ReadSection

[juergen]

Hallo,

wie wär's mit:

Delphi-Quellcode:

sl.Add(my_ini.ReadString('ADNummern', '1. AD', '1. AD-Error'));
sl.Add(my_ini.ReadString('ADNummern', '2. AD', '2. AD-Error'));
sl.Add(my_ini.ReadString('ADNummern', '3. AD', '3. AD-Error'));
...
sl.Add(my_ini.ReadString('ADNummern', '6. AD', '6. AD-Error'));

[himitsu]

Delphi-Quellcode:

Ini.ReadSection('ADNummern', SL);
for i := SL.Count - 1 downto 0 do
  SL[i] := SL.ValueByIndex[i];

Nun ja, im Allgemeinen ist eine INI eine Liste aus Name&Wert-Paaren,
wobei immer einem "eindeutigen" Name irgendein "beliebiger" Wert zugewiesen ist. (gleiche Werte können auch mehrmals vorkommen)

Da ein Wert praktisch ohne seinen Namen keine Bedeutung besitzt, gibt es standardmäßig auch keine Funktion, um alle Werte ohne ihren Namen auszulesen.

[Luckie]

Mal klarer gefragt: Was ist der Bezeichner und was ist der Wert?

[H.Bothur]

Zitat von Luckie:

Mal klarer gefragt: Was ist der Bezeichner und was ist der Wert?

Bezeichner sind A, B, C usw und die Werte sind 1. AD, 2. AD, 3. AD usw.

Zur Erklärung: Ich habe eine Kundenkartei, da steht unter anderem drin welcher AD zuständig ist, allerdings nicht so einfach wie hier sondern einfach nur mit Nummern willkührlich gewählt und die NICHT in einer Reihenfolge sind.

Außerdem hat natürlich jeder AD eine Email-Adresse. Mein einfacher Ansatz war: In der INI-Datei eine Section mit den Nummern der ADs und eine zweite mit den Email-Adressen .. also so:

Delphi-Quellcode:

[ADNummern]
1. AD = 1
2. AD = 2
3. AD = 5
4. AD = 9
5. AD = 12
6. AD = 25
[ADAdressen]
1. AD = [e-mail]
2. AD = [e-mail]
3. AD = [e-mail]
4. AD = [e-mail]
5. AD = [e-mail]
6. AD = [e-mail]

Dann einfach in zwei TStringList einlesen, die gesuchte Nummer in der ersten TSringList suchen und dann die entsprechende EmailAdresse aus der zweiten nehmen.

Und da ich sowieso eine INI habe fand ich die Idee nicht schlecht. Es geht ja auch wenn ich mit ReadSection das einlese - dann muss ich eben nur die Reihenfolge tauschen.

es hat mich eben nur gewundert warum das so ist.

Hans

[H.Bothur]

Zitat von juergen:

Hallo,

wie wär's mit:

Delphi-Quellcode:

sl.Add(my_ini.ReadString('ADNummern', '1. AD', '1. AD-Error'));
sl.Add(my_ini.ReadString('ADNummern', '2. AD', '2. AD-Error'));
sl.Add(my_ini.ReadString('ADNummern', '3. AD', '3. AD-Error'));
...
sl.Add(my_ini.ReadString('ADNummern', '6. AD', '6. AD-Error'));

so in der Art geht es - hätte aber den Nachteil das ich schon vorher wissen muss wie viele Einträge es gibt.

Hans