Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: bestimmte Streams aus Datei landen

  Alt 15. Mär 2006, 10:42
Herzlich willkommen in der Delphi-PRAXiS, Neutron.

Wenn du dein Speicherformat geringfügig änderst, dann kannst du sehr einfach auf deine Daten zugreifen (getippt und nicht getestet):

Code:
[Tabellen]
Adressen=Nachname,Vorname,Wohnort

[Adressen]
1=Riese,Roland,Bremen
2="von Bismarck",Otto,Schönhausen
Delphi-Quellcode:
uses
  Classes;

var
  mif: TMemIniFile;
  slAdressen: TStringList;
  slNames, slValues: TStringList;
  
  index: Integer;
  sValue: String;
 
begin
  slNames := TStringList.Create;
  slNames := TStringList.Create;

  mif := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  slAdressen := TStringList.Create;
  mif.ReadSectionValues('Adressen', slAdressen);
  slNames.CommaText := mif.ReadString('Tabellen', 'Adressen', '');

  // Besorge Nachname für Adresse 2
  index := slNamen.IndexOf('Nachname');
  slValues.CommaText := slAdressen.Values['2'];
  s := slValues[index];

  mif.Free;
  slNames.Free;
  slValues.Free;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat