Einzelnen Beitrag anzeigen

Kegasetu

Registriert seit: 26. Sep 2013
85 Beiträge
 
#10

AW: Array of String in einer externen Datei speichern und laden

  Alt 2. Dez 2020, 12:21
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 ''
  Mit Zitat antworten Zitat