Gemme og hente fra XML fil

Hvis du benytter formen:
Navn1=Værdi1
Navn2=Værdi2
Navn3=Værdi3
osv.

kan du benytte TInifiles eller TStringList, så får du feltnavne med og rækkefølgen er ikke vigtig.

Hvis du vil benytte XML kan du bruge TClientDataSet som kan gemme i XML ved at kalde:
ClientDataSet.SaveToFile('dinfil.xml',dfXMLUTF8);

og hente data igen således:
ClientDataSet.LoadFromFile('dinfil.xml');

Mht. Navn1=Værdi1 så findes der i TStringList funktioner til at håndtere dette, f.eks. Names[], Values[], ValuesFromIndex[] osv.

Syntes lige jeg vil skrive lidt mere om TStringList da den faktisk er meget smart at benytte, hvis du f.eks. har en fil med værdierne:
Navn1=Værdi1
Navn2=Værdi2
Navn3=Værdi3

så indlæser du dem med:
StringList.LoadFromFile('Dinfil.txt');

hvis du vil have værdien for Navn2 så skriver du blot:

abc=StringList.Values['Navn2'];

Hvis du vil sætte en værdi skriver du:
StringList.Values['Navn2']:='En ny værdi';

og for at gemme:
StringList.SaveToFile('Dinfil.txt');

Hvis du har andre værdier end Text i fin fil vil en TInifile værer lidt lettere at benytte da den har funktioner til direkte at gemme/hente andre formater, men opbygninger i filen er stadig det samme format Navn1=Value1

Jeg har gjort noget helt andet ..... Med hjælp fra en god ven som fik den iden at overskrive filen hver gang der opdateres. Dette var fordi jeg skulle hente info fra en DB i ASP.

:)

kroning>
Jeg kan godt se fidusen i det du skriver - måske er det den vej jeg skal kigge. Jeg synes bare at XML var lidt mere universal og vil kunne læses af andre programmer uden at kende til formatet. Hvis jeg 'opfinder' mit eget format er det lidt mere låst hvis du forstår hvor jeg vil hen.

Nu er formatet:
Navn1=Værdi1
Navn2=Værdi2
Navn3=Værdi3
osv.

et format der bruges af næsten alt og alle så det vil jeg ikke kalde at opfinde sig eget.
Jeg vil mene at det format vil kunne læses af betydelig flere end som et XML format.

uses
  XMLIntf, XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDoc: IXMLDocument;
  oNode: IXMLNode;
begin
  XMLDoc := NewXMLDocument;
  XMLDoc.Active := True;
  oNode := XMLDoc.AddChild('Test1');
  oNode.AddChild('Test2');

  XMLDoc.SaveToFile(C:\Temp\Test.xml);
end;

kroning og js_delphi smid lige et svar så i alle kan dele points.

Jeg er desværre ikke kommet ret meget videre med projektet da der er blevet skubbet noget vigtigere foran.
Men det er vist tid at få ryddet op her.

k

Held og lykke med sagerne.