Array of String in .txt abspeichern

Nilius · Hält's aus hier Beiträge: 15

Hallo, habe eben in der Suche gesucht, aber da findet man immer nur verweise wie man es denn bitte auf eine andere Art machen soll. Ich hab jetzt einen Array of String und möchte diesen einfach über writeln in ne txt speichern. Mein problem is nur dass er mior jedesmal sagt dass es probleme mit zugriffsverletzungen gibt und ich grad net mehr rausfinde warum. wäre nett wenn man mir meinen fehler aufzeigen könnte

Hier der quelltext der entsprechenden Prozedur:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer; f:textfile;
begin
    begin
      Assignfile(f, 'C:\Datenbank.txt');
      ReWrite(f);
      for i:=0 to (Length(Daten)) do WriteLn(f, daten[i]);
      CloseFile(f);
    end;
  close;
end;

Daten ist hierbei der Global definierte Array of String (dynamisch)

Interessanterweise funktioniert eigentlich alles, d.h. die textdatei wird erstellt und die daten werden auch reingeschrieben. nur gibt er jedesmal ne fehlermeldung aus: "Zugriffsverletzung bei Adresse 00404A07 in Modul "Project1.exe". Lesen von Adresse 0000004A."

bummi · Verfasst: Mo 23.05.11 12:54

>> das Problem liegt hier: 0 to (Length(Daten))

markieren

Delphi-Quelltext

1:
2:
3:

.. 0 to (Length(Daten) - 1) ..
//besser
For i := Low(Daten) to High(Daten) do

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Gausi · Verfasst: Mo 23.05.11 12:54

Die Indizes in einem Array gehen von 0 bis Length - 1. ;-)

_________________
We are, we were and will not be.

Narses · Verfasst: Mo 23.05.11 12:57

Moin und

im Forum!

Ein dynamisches Array der Länge N fängt bei 0 an und geht bis N-1. :idea:

Du hast aber auch noch den Index N verwendet - und den gibt´s nicht, deshalb die Exception.

Probier das mal so:

Nilius hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button2Click(Sender: TObject);
  var
    i: Integer;
    f: Textfile;
begin
  Assignfile(f, 'C:\Datenbank.txt');
  ReWrite(f);
  for i := 0 to High(Daten) do // 0..Max-1
    WriteLn(f, daten[i]);
  CloseFile(f);
end;

Nilius hat folgendes geschrieben :

habe eben in der Suche gesucht, aber da findet man immer nur verweise wie man es denn bitte auf eine andere Art machen soll.

Nicht ohne Grund, sowas kann man sehr viel besser mit einer TStringList erledigen. Die hat auch gleich eine passende Methode zu Speichern und Laden dabei. :think:

cu
Narses

//EDIT: Mudda, bin ich langsam...

_________________
There are 10 types of people - those who understand binary and those who don´t.

HeftCD · Verfasst: Mo 23.05.11 13:04

Narses hat folgendes geschrieben :

//EDIT: Mudda, bin ich langsam...

Du wirst älter

Moderiert von Narses: Zitat repariert.

_________________
prog.pr.ohost.de/ - Inno-Gui Designer (Programm)
PGP Key ID: 0x30DE7A08 - Fingerprint:9CD3 323C 3AE8 5714 EB8B FD07 9F65 986F 30DE 7A08

Nilius · Hält's aus hier Beiträge: 15

Danke an alle Antworten^^ Jetzt funzt es endlich. Und zum Thema dass kann man besser lösen: Ich find genau diese Variante sehr schön, weil man eben nicht noch wieder neue Sachen dazudefiniern muss und ich außerdem hiermit am besten klar komme und es am übersichtlichsten finde. Und bei den Programmgrößen die Otto-Normal hier bastelt, merkt der moderne Rechner eh kein Unterschied mehr ob das jetzt etwas effektiver ist oder nicht

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Ein bisschen deklarativer:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var
  S: string;
begin
  for S in Daten do
    ...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme