ich weiß nicht, ob ich mich bezüglich der ReadString Funktionen auf einem Holzweg befinde.
ich versuche via folgendem Code
Code: Alles auswählen
for a:= 0 to Temp.Count - 1 do begin
s:= Format('[%s]', ['Artikel' + IntToStr(a + 1)]);
if (ReadString(s, 'Bezeichnung', '') <> '') then begin
fArtikel[b].index := ReadInteger(s, 'Lfd-Nr.:', 0);
fArtikel[b].Bezeichnung := ReadString(s, 'Bezeichnung', '');
fArtikel[b].Klassifizierung := ReadString(s, 'Klassifizierung', '');
fArtikel[b].Version := ReadString(s, 'Version', '');
fArtikel[b].Beschaffung := ReadString(s, 'Beschaffungsliste', '');
inc(b);
inc(Index);
end;
end;
Eine Abfrage zu erwirken ob der Wert den ich lesen will auch vorhanden ist. (Bug Killer)
Aber während ich das gerade schreibe, Klaube ich mir die Antwort selber zu geben, möchte aber mal noch andere Meinugen lesen, ob mein Holzweg mit folgendem Ansatz richtig verlassen wird
Code: Alles auswählen
for a:= 0 to Temp.Count - 1 do begin
s:= Format('[%s]', ['Artikel' + IntToStr(a + 1)]);
if (ReadString(s, 'Bezeichnung', '') <> 'Bezeichnung=') then begin
fArtikel[b].index := ReadInteger(s, 'Lfd-Nr.:', 0);
fArtikel[b].Bezeichnung := ReadString(s, 'Bezeichnung', '');
fArtikel[b].Klassifizierung := ReadString(s, 'Klassifizierung', '');
fArtikel[b].Version := ReadString(s, 'Version', '');
fArtikel[b].Beschaffung := ReadString(s, 'Beschaffungsliste', '');
inc(b);
inc(Index);
end;
end;
Wie immer bin ich für jeden Tip Dankbar.
Grüße aus China Maik