Eigenes Dateiformat

[Assarbad]

Zitat:

Zitat von Luckie (Beitrag 1057425)

Man beachte die Delphi Version: D3 Prof.

5, lt. Beitrag. Wobei das an der Kritik nichts ändert. Wie ich das so sehe sind Generics dabei ...

[Luckie]

Laut Profil 3. Aber das ändert nichts.

[Bummi]

oder Quick and Dirty

Delphi-Quellcode:

type
  TAdresse=Record
    Name:String;
    Adresse:String;
    Telefon:String;
    Geboren:String;
  End;
TAdressArray=Array of TAdresse;

var
  Form1: TForm1;
  AdressArray:TAdressArray;

implementation

{$R *.dfm}
Procedure ReadToArray(fn:String);
type
  rStatus=(Name,Adresse,Telefon,Geboren);
var
  sl:TStringList;
  i:Integer;
  lStatus:rStatus;
  Procedure AppendTo(Var s:String);
    var
      nz:String;
    begin
      if Length(s)>0 then nz := #13#10 else nz := '';
      s := s + nz+ sl[i];

    end;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(fn);
    for I := 0 to sl.Count - 1 do
       begin
         if Trim(sl[i])='<Name>' then
            begin
               lStatus:=Name;
               SetLength(AdressArray,High(AdressArray) + 2);
            end
         else if Trim(sl[i])='<Adresse>' then
            begin
               lStatus:=Adresse;
            end
         else if Trim(sl[i])='<Telefon>' then
            begin
               lStatus:=Telefon;
            end
         else if Trim(sl[i])='<Geb.datum>' then
            begin
               lStatus:=Geboren;
            end
         else
            begin
              case Lstatus of
                Name:    AppendTo( AdressArray[High(AdressArray)].Name);
                Adresse: AppendTo( AdressArray[High(AdressArray)].Adresse);
                Telefon: AppendTo( AdressArray[High(AdressArray)].Telefon);
                Geboren: AppendTo( AdressArray[High(AdressArray)].Geboren);
              end;
            end;

       end;
  finally
    sl.Free;
  end;
end;

[himitsu]

< durch [ und > durch ] ersetzt und schon hat man eine "leicht" vermurkste INI, welche man z.B. mit FastIniFiles auslesen könnte. :angle2:

[Sir Rufo]

oder so

Code:

{ 
"Name":"Karl Heinz",
"Adresse":  "Im weiten Feld 23/n/rZimmer 3/n/r79856 Fritzlar"
"Telefon":"07985/ 865656",
"Geb.datum":"14.07.1978"
}

als JSON

[implementation]

Zitat:

Zitat von Assarbad (Beitrag 1057427)

Zitat:

Zitat von Luckie (Beitrag 1057425)

Man beachte die Delphi Version: D3 Prof.

5, lt. Beitrag. Wobei das an der Kritik nichts ändert. Wie ich das so sehe sind Generics dabei ...

Zitat:

Zitat von Luckie (Beitrag 1057431)

Laut Profil 3. Aber das ändert nichts.

Siehe mein Folgebeitrag. Das generische Dictionary war nur als Quick&Dirty-Beispiel, es ging vielmehr um den DEA.

Zitat:

Zitat von Bummi (Beitrag 1057437)

oder Quick and Dirty

Delphi-Quellcode:

...

Also ich halte den DEA für flexibler, falls das Format noch weiter ausgebaut werden soll. :gruebel:

Zitat:

Zitat von himitsu (Beitrag 1057438)

< durch [ und > durch ] ersetzt und schon hat man eine "leicht" vermurkste INI, welche man z.B. mit FastIniFiles auslesen könnte. :angle2:

Die wäre aber sehr vermurkst.

Zitat:

Zitat von Sir Rufo (Beitrag 1057443)

oder so

Code:

{ 
"Name":"Karl Heinz",
"Adresse":  "Im weiten Feld 23/n/rZimmer 3/n/r79856 Fritzlar"
"Telefon":"07985/ 865656",
"Geb.datum":"14.07.1978"
}

als JSON

Er ist ja nicht auf der Suche nach neuen Möglichkeiten, die Daten zu speichern, sondern möchte Dateien in seinem bisherigen Format auslesen.

[Bummi]

Zitat:

Zitat von Bummi:
oder Quick and Dirty
...
Also ich halte den DEA für flexibler, falls das Format noch weiter ausgebaut werden soll.

Ich gehe davon aus, daß er selbst gesehen hat, daß er sich verrannt hat und nur seine Daten retten will....

[implementation]

Zitat:

Zitat von Bummi (Beitrag 1057448)

Ich gehe davon aus, daß er selbst gesehen hat, daß er sich verrannt hat und nur seine Daten retten will....

Ich geb' dir ja Recht :lol:

[himitsu]

Soooo schlimm ist es ja garnicht.

Im Grunde ist es ja eigentlich nur
- 'ne abgespeckte INI, mit leichter XML-Ähnlichkeit, ohne Value-Names und mit mehrfachen Sections
- eine kleinere XML-änhnliche lineare (kein Baum) Struktur ohne schließende Knoten und ohne Root-Knoten

[Delphi-Laie]

Zitat:

Zitat von Coder (Beitrag 1057388)

wie weit les ich ein, bis ich auf den nächsten Tag stoße?

Bis 24 Uhr.

Zitat:

Zitat von Coder (Beitrag 1057388)

Oder wie handelt man eine solche [schon vorhandene Struktur ...eeeek, s.o.]
und liest die am besten wieder aus?

Um hier substantiell helfen zu können, müßte die Datenstruktur m.E. nicht nur kryptisch angedeutet, sondern vollständig offengelegt werden.