Einzelnen Beitrag anzeigen

Dax
(Gast)

n/a Beiträge
 
#2

Re: Wie kann ich mit Delphi Daten(mengen) speichern?

  Alt 9. Feb 2004, 12:41
Wenn es nur um einen kleinen Organizer geht, würde ich nicht direkt mit SQL oder Paradox oder so arbeiten sondern eher eine .ini-datei bevorzugen.

z.B.:
Code:
[Inhalte]
Zahl=2
Inhalt1=Wohnort
Inhalt2=Telefon

[User]
Zahl=3
User1=Daniel
User2=sakura
User3=Zooel

[User1]
Wohnort=woanders
Telefon=nochnichterfunden

[User2]
...

[User3]
...
Beispielcode zur verwendung:

Delphi-Quellcode:
uses inifiles;

{...}

procedure ausgabe;
var
  s: string;
  inhalte, user: array of string;
  i: inifile;
  int, e: integer;
begin
  i := TIniFile.Create(SpeicherOrtDerDatei);
  int := i.ReadInteger('Inhalte', 'Zahl', 0);
  SetLength(inahlte, int+1);
  for int := 1 to int do
    inhalte[int] := i.ReadString('Inhalte', 'Inhalt' + IntToStr(int), '');
  int := i.readInteger('User', 'Zahl', 0);
  for int := 1 to int do
    user[i] := i.ReadString('User', 'User' + IntToStr(int), '');
  
  for int := 1 to Length(User)-1 do
  begin
    for e := 1 to length(inhalte)-1 do
      WriteLN(inahlte[e] + ' von ' + user[int] + ': ' + i.ReadString('User' + IntToStr(int), inhalte[e], '');
  end;
end;
BtW: Der Code ist gerade "On-The-Fly" entstande, also nicht getestet!

Und: Wenn du es so schreibst, musst du es als Konsolenanwendung kompilieren.
  Mit Zitat antworten Zitat