Array of String in einer externen Datei speichern und laden

[Mavarik]

Hmm...

Schneller geht immer, oder?

Was ist wenn die Datei mit D6 oder D2007 erzeugt wurde und in XE eingelesen werden muss...

32Bit Schreiben, 64 Bit Lesen hab ich nicht berücksichtig. Ginge aber auch indem man aus Integer Int32 macht..

Wir gehen mal davon aus, dass die Datei nicht 2TB groß ist, oder defekt... (Könnte man natürlich alles abfangen)

Bisschen "Schön-Wetter-Code" gefällig?

Delphi-Quellcode:

program Project378;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils
, System.Classes
;

  Procedure Schreibe(Const aBzB : TArray<String>);
  var
    CharSize : byte;
    Anz,
    L,
    I        : Integer;
    MS       : TMemoryStream;
    P        : Pointer;
    PP       : NativeUInt absolute P;
  begin
    MS := TMemoryStream.Create;
    try
      Anz      := Length(aBzB);
      CharSize := Sizeof(Char);

      L  := 0;

      for i:=0 to Anz-1 do
        inc(L,Length(aBzB[i]) * CharSize);

     MS.SetSize(Sizeof(Anz)+1+Anz*Sizeof(Integer)+L);
     MS.Position := 0;

     P := MS.Memory;

     Move(Anz,P^,Sizeof(Anz));
     inc(PP,Sizeof(Anz));

     Move(CharSize,P^,1);
     inc(PP);

     for i:=0 to high(aBZB) do
       begin
         L := Length(aBzB[i]);
         Move(L,P^,Sizeof(L));
         inc(PP,Sizeof(L));
         L := L * CharSize;
         Move(aBzB[i][1],P^,L);
         inc(PP,L);
       end;

     MS.SaveToFile('Daten.Dat');
    finally
      MS.Free;
    end;
  end;

  {.$DEFINE CanDoAnsiRead}

  Procedure Lese(Var aBzB : TArray<String>);
  var
    CharSize : byte;
    Anz,
    L,
    I   : Integer;
    MS  : TMemoryStream;
    Len : TArray<Word>;
    P   : Pointer;
    PP  : NativeUInt absolute P;

    {$IFDEF CanDoAnsiRead}
    S        : AnsiString;
    AnsiRead : boolean;
    {$ENDIF}
  begin
    {$IFDEF CanDoAnsiRead}
    AnsiRead := false;
    {$ENDIF}

    MS := TMemoryStream.Create;
    try
      MS.LoadFromFile('Daten.dat');
      MS.Position := 0;
      P := MS.Memory;
      Move(P^,Anz,Sizeof(Anz));
      Inc(PP,Sizeof(Anz));

      Move(P^,CharSize,1);
      inc(PP);

      if (CharSize <> Sizeof(Char)) then
        {$IFDEF CanDoAnsiRead}
        if (CharSize = 1)
          then AnsiRead := true
          else {$ENDIF}
               raise Exception.Create('Daten wurden mit eine Unicode Delphi Version erzeugt'); // Könnte man ggf. in Widestrings einlesen...

      Setlength(aBzB,Anz);
      for i:=0 to Anz-1 do
        begin
          Move(P^,L,Sizeof(L));
          inc(PP,Sizeof(L));

          {$IFDEF CanDoAnsiRead}
          if AnsiRead
            then begin
                   Setlength(S,L);
                   Move(P^,S[1],L);
                   inc(PP,L);
                   aBzB[i] := S;  // UTF8?
                 end
            else begin {$ENDIF}
                   Setlength(aBzB[i],L);
                   Move(P^,aBzB[i][1],L*CharSize);
                   inc(PP,L*CharSize);
{$IFDEF CanDoAnsiRead} end; {$ENDIF}
        end;
    finally
      MS.Free;
    end;
  end;

Var
  BzBSource,
  BzBDest    : TArray<String>;
  I          : Integer;
begin
  try
    BzBSource := ['Frank','Peter','Klaus','Sebastian'];
    Schreibe(BzBSource);
    Lese(BzBDest);

    if Length(BzBDest) <> Length(BzBSource) then
      Raise Exception.Create('Source <> Dest');

    for i:=0 to high(BzBSource) do
      if BzBSource[i] <> BzBDest[i] then
         Raise Exception.Create('Daten unterschiedlich!');

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Oder so...

Mavarik

[himitsu]

Bei TArray<string> ein TFile.ReadAllLines und TFile.WriteAllLines

[Kegasetu]

Zitat von runningsoft:

So würde ich den Inhalt der Stringlist ins Array wieder einlesen:

Delphi-Quellcode:

var
  Form1: TForm1;
  StrArr: array of string;
  MyStringList: TStringList;

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
for I := 0 to MyStringList.Count - 1 do                   //Stringliste Zeilenweise abarbeiten
  begin
  SetLength(StrArr,Length(StrArr)+1);                     //Speicher reservieren
  StrArr[High(StrArr)] := MyStringList.Strings[I];        //Strings ins Array schreiben
  end;
MyStringList.Free;
//nur zur Kontrolle den Inhalt des StringArrays in einem Memo anzeigen
for I := 0 to High(StrArr) -1 do
  begin
  Memo1.Lines.Add(StrArr[I]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyStringList := TStringList.Create;
MyStringList.LoadFromFile('test.bla');
end;

Steffen

Danke für den Code, aber irgendwie blicke ich noch nicht so ganz durch. Das Erste was ich mache, ist die Stringlist zu füllen. Das habe ich so gemacht:

Delphi-Quellcode:

procedure TForm2.Werte_speichernClick(Sender: TObject);
var fs,ds:TFileStream;

    i : integer;

    bsb : TStringList;

begin

  bsb.Create;

try

  for i := 0 to 519 do
    bsb.Add(bzb[i]);


end;

Hier bekomme ich immer die Meldung, dass eine Zugriffverletzung bei Adresse ... vorliegt.
bzb ist bereits voll definiert, also von 0 bis 519, und zwar mit ''

[DeddyH]

 bsb := TStringList.Create;

[Klaus01]

bsb := TstringList.Create;

[Kegasetu]

.... Danke

[Kegasetu]

Habe es hinbekommen. Vielen Dank euch!