stringgrid aus txt lesen

Krefti · Verfasst: Di 20.05.08 13:51

Hi zusammen,

ich hab ein Problem beim auslesen einer .txt datei in mein Stringgrid. Die dargestellten Inhalte aus dem Stringgrid werden zu erst in einer .txt abgespeichert. Beim Laden bekomm ich dann eine access violation, read of adress

das abspeichern funktioniert problemlos.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.SaveStringGridToFile(Sender: Tobject);
var
  sl: TStringList;
  x,y: Integer;
begin
     StartDir := inifWerte.Programmpfad;
                  sdSpeichernDialog.Filter := 'Protokolldatei (*.txt)|*.txt';
                  sdSpeichernDialog.options := [ofAllowMultiSelect];
                  sdSpeichernDialog.initialDir := StartDir;

   if sdSpeichernDialog.Execute then

   sl := TStringlist.Create;
   sl.add(inttostr(sgTabelle.ColCount));
   sl.add(inttostr(sgTabelle.RowCount));

   for x := 0 to sgTabelle.ColCount - 1 do
     for y := 0 to sgTabelle.RowCount - 1 do
       sl.add(sgTabelle.cells[x,y]);
   sl.savetofile(sdSpeichernDialog.filename);
   sl.free;
end;

beim laden kommt der fehler:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.LoadStringGridFromFile(Sender: TObject);
var
  sl: TStringList;
  x,y,z: Integer;
begin
    If odLadenDialog.Execute then

 StartDir := inif.ReadString('Pfadangabe','speicher',s);
        odLadenDialog.Filter := 'Protokolldatei (*.txt)|*.txt';
        odLadenDialog.options := [ofAllowMultiSelect];

        odLadenDialog.initialDir := StartDir;


  sl := TStringList.Create;
  sl.loadfromfile(odLadenDialog.FileName);
  sgTabelle.ColCount := strtoint(sl.strings[0]);
  sgTabelle.RowCount := strtoint(sl.strings[1]);
  z := 2;
  for x := 0 to sgTabelle.ColCount - 1 do
      for y := 0 to sgTabelle.RowCount - 1 do
        begin
          sgTabelle.Cells[x,y] := sl.strings[z];
          inc(z);
        end;
end;

vielen dank schon mal für eure hilfe!!

Marc. · Verfasst: Di 20.05.08 14:03

Hi!
So auf Anhieb sehe ich nichts, aber setz doch mal einen Breakpoint an den Anfang der Prozedur und Steppe dann mit F7 durch. Damit sollte sich der Fehler ziemlich genau lokalisieren lassen.

Cheers,
Marc

Krefti · Verfasst: Di 20.05.08 14:10

alles klar, hab ich gemacht, von mir aus kann man das thema löschen..ich hab übersehen, dass ich noch den startprogrammpfad aus dem ini-file lese, dabei lese ich bei programmstart alle parameter aus dem inifile in ein record und mache es wieder zu, damit ich es nicht die ganze zeit offen haben muss und arbeite mit dem record und schreibe zum schluss wieder alle variablen des records ins ini-file.
hätt ich selbst drauf kommen müssen;) trotzdem danke..

Marc. · Verfasst: Di 20.05.08 14:13

Krefti hat folgendes geschrieben:

alles klar, hab ich gemacht, von mir aus kann man das thema löschen..

Gelöscht wird hier nichts, es könnte ja auch sein, dass andere User das selbe Problem haben.

Krefti · Verfasst: Di 20.05.08 14:17

Marc. hat folgendes geschrieben:

Krefti hat folgendes geschrieben:

alles klar, hab ich gemacht, von mir aus kann man das thema löschen..

Gelöscht wird hier nichts, es könnte ja auch sein, dass andere User das selbe Problem haben.

glaub ich in diesem Fall zwar kaum, aber passt schon ;-)

Lannes · Verfasst: Di 20.05.08 15:30

Hallo,

Krefti hat folgendes geschrieben:

das abspeichern funktioniert problemlos.

aber nur solange Du den Speicherndialog nicht abbrichst.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

//...
   if sdSpeichernDialog.Execute then

   sl := TStringlist.Create;
   sl.add(inttostr(sgTabelle.ColCount));//<-- hier knallt es
//...

da fehlt noch die Klammerung in einen begin-end-Block. :wink:

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Krefti · Verfasst: Di 20.05.08 15:54

Lannes hat folgendes geschrieben:

Hallo,

Krefti hat folgendes geschrieben:

das abspeichern funktioniert problemlos.

aber nur solange Du den Speicherndialog nicht abbrichst.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

//...
   if sdSpeichernDialog.Execute then

   sl := TStringlist.Create;
   sl.add(inttostr(sgTabelle.ColCount));//<-- hier knallt es
//...

da fehlt noch die Klammerung in einen begin-end-Block. :wink:

nö, funktioniert doch..der einzige fehler lag darin, wie ich es in meinem obigen beitrag gepostet habe, aber trotzdem danke fürs anschauen;)

jaenicke · Verfasst: Di 20.05.08 17:50

Funktioniert nicht, brich den Dialog mal ab ;-)

. Die Zeile, in der du die StringList erzeugst, wird nur ausgeführt, wenn der Dialog mit nicht abgebrochen wird.
Der Rest (in dem auch die gar nicht erzeugte StringList benutzt wird) aber auch, wenn du keine Datei auswählst und auf Abbrechen drückst.

Krefti · Verfasst: Mi 21.05.08 06:19

jaenicke hat folgendes geschrieben:

Funktioniert nicht, brich den Dialog mal ab ;-)

. Die Zeile, in der du die StringList erzeugst, wird nur ausgeführt, wenn der Dialog mit nicht abgebrochen wird.
Der Rest (in dem auch die gar nicht erzeugte StringList benutzt wird) aber auch, wenn du keine Datei auswählst und auf Abbrechen drückst.

achso, dass meintest du..das hatte ich schon behoben gehabt..aber trotzdem danke!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme