ReadString : Nach Section suchen ?

[himitsu]

ReadSections ... bitte beachte das S
damit bekommst du die Liste der Sektionen
und mit ReadSection bzw. ReadSectionValues kommst du an den Inhalt der einzelnen Sektionen.

[DeddyH]

Du brauchst 2 Stringlisten, eine für die Sections und eine für die Werte.

Delphi-Quellcode:

var liste1, liste2: TStringlist;
    dingsbums: integer;
begin
  ... //Inifile und Listen instanzieren etc.
  Ini.ReadSections(liste1);
  for dingsbums := 0 to liste1.Count - 1 do
    begin
      Ini.ReadSectionValues(liste1[dingsbums],liste2);
      if liste2.IndexOf('Key=Wert') > -1 then
        ShowMessage(Format('Gefunden in Sektion "%s"',[liste1[dingsbums]]));
    end;
  ...//Objekte wieder freigeben usw.
end;

So in etwa dachte ich mir das.

[aaaaaaaaaa_10]

Danke, damit ist mir ersteinmal geholfen

[aaaaaaaaaa_10]

Delphi-Quellcode:

for i := 0 to SecList1.Count - 1 do
  begin
    SessionIni.ReadSectionValues(SecList1[i],SecList2);
    if SecList2.IndexOf('Bezeichnung='+t.MessProg.Bezeichnung) > -1 then
    RohdatenPfad := SessionIni.ReadString(SecList1[i],'Rohpfad','C:\Daten')
    else RohDatenPfad := DalosOptions.RohdatenPfad;
  end;

So weit so gut,aber nun muss ich auf ein Objekt einer anderen Unit eines anderen Programms zugreifen, weil dort der wert enthalten ist.
Allerdings fährt das Programm sich jetzt immer fest. Warum?

[Klaus01]

Zitat:

Zitat von aaaaaaaaaa_10

]

So weit so gut,aber nun muss ich auf ein Objekt einer anderen Unit eines anderen Programms zugreifen, weil dort der wert enthalten ist.
Allerdings fährt das Programm sich jetzt immer fest. Warum?

Was meinst Du mit fährt sich fest?

Ich kann mit nicht vorstellen, dass es in der von dir geposteten Routine zu einer
Endlosschleife kommt?

Hast Du zu der Instanz t.MessProg keine Methode z.B. getBezeichnung die dir
den Wert liefert?

Wie bindest Du das Object ein?

Grüße
Klaus

[aaaaaaaaaa_10]

Fährt sich fest = reagiert nicht mehr.

Zitat:

Hast Du zu der Instanz t.MessProg keine Methode z.B. getBezeichnung die dir
den Wert liefert?

Nein,habe ich nicht.

t ist eine eigene Klasse von mir