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 ''