urgh? Lesen Von Adresse 00000000 error bei... ???

[Skyruner2]

hi
Ich habe keine ahrnung warum ich diesen error habe....
Hier ist das exception fenster
nach dem error springt der de-bugger Hier hin

und der code (der macht noch net fiel)
error bei: button2click

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
openDialog1.Execute;
edit3.text:=opendialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  filedata, datacontent : tStringlist;
  databegin, dataend :integer;
begin
If openDialog1.Filename = ''
then showmessage('no file loaded dumbass')
else
  begin
    try
      filedata.Create;
      try
        filedata.LoadFromFile(opendialog1.FileName);
      except
        on E: Exception do
          begin
            showmessage(e.Message);
          end;
      end;

      databegin:=filedata.IndexOf(edit1.Text);
      dataend:=filedata.IndexOf(edit2.Text);

    finally
      FreeAndNil(filedata);
      FreeAndNil(datacontent);
    end;
  end;
end;

hab ich wieder was falsch geschrieben??
wenn ich den error ignorire, un das programm weiterlaufen lasse, ist die gleich message in der showmessage nachricht.... also muss es an:
filedata.LoadFromFile(opendialog1.FileName);
liegen

ist auch wenn ich dass file zB in ein memo feld lade.

[Nalincah]

filedata.Create = FALSCH
filedate := TStringList.Create; = RICHTIG

und nicht

Delphi-Quellcode:

var
  filedate:TStringList;

sondern

Delphi-Quellcode:

var 
  filedate:TStrings;

[Nalincah]

Würd das auch nicht so schreiben:

Delphi-Quellcode:

If openDialog1.Filename = '' 
then showmessage('no file loaded dumbass') 
else 
  begin 
    try 
      filedata.Create; 
      try 
        filedata.LoadFromFile(opendialog1.FileName); 
      except 
        on E: Exception do 
          begin 
            showmessage(e.Message); 
          end; 
      end; 

      databegin:=filedata.IndexOf(edit1.Text); 
      dataend:=filedata.IndexOf(edit2.Text); 

    finally 
      FreeAndNil(filedata); 
      FreeAndNil(datacontent); 
    end; 
  end;

Sonder so:

Delphi-Quellcode:

If openDialog1.Filename = '' then 
begin
  showmessage('no file loaded dumbass');
end else
begin 
  try 
    filedata := TStringList.Create; 
    try 
      filedata.LoadFromFile(opendialog1.FileName); 
    except 
      on e : exception do 
        showmessage(e.Message); 
    end; 
    databegin := filedata.IndexOf(edit1.Text); 
    dataend := filedata.IndexOf(edit2.Text); 
  finally 
    filedate.free;
  end; 
end;

So ist doch übersichtlicher, oder nicht?

Ausserdem, wofür brauchst du das "datacontent"??

[Skyruner2]

hmm.. kein error mehr

aber warum?

was ist denn der unterschied von Tstringlist und Tstrings??

[Nalincah]

Dein Fehler war das erstellen des Objektes:

wenn du ne StringList machen willst

dann so

Delphi-Quellcode:

var
  Liste:TStrings;
begin
  Liste := TStringList.Create;
  try
    // Code
  finally
    Liste.free;
  end;
end;

[Luckie]

Irgendwie hats du die try-finally, try except Blöcke komisch geschachtelt.

Delphi-Quellcode:

sl := TStringlist.Create;
try
  sl. ...;
  try
    sl.LoadfromFile(...);
  except
    ...;
  end;
finally
  sl.Free;
end;

Wobei ich auf den Except Block verzichten würde und mit FileExist prüfen würde, ob die Datei vorhanden ist. Nutz man allerdings einen Opendialog ist das überflüssig, weil man ihn so einstellen kann, dass er nur existierende Dateien akzeptiert.

[Skyruner2]

Zitat von Luckie:

Irgendwie hats du die try-finally, try except Blöcke komisch geschachtelt.

Delphi-Quellcode:

sl := TStringlist.Create;
try
  sl. ...;
  try
    sl.LoadfromFile(...);
  except
    ...;
  end;
finally
  sl.Free;
end;

Wobei ich auf den Except Block verzichten würde und mit FileExist prüfen würde, ob die Datei vorhanden ist. Nutz man allerdings einen Opendialog ist das überflüssig, weil man ihn so einstellen kann, dass er nur existierende Dateien akzeptiert.

war auch nur für de-bugging gedacht

[Nalincah]

Entweder so:

Delphi-Quellcode:

If FileExists(opendialog1.filename) then
  memo1.lines.loadfromfile(opendialog1.filename);

oder

Delphi-Quellcode:

if opendialog1.execute then
  memo1.lines.loadfromfile(opendialog1.filename);

Beim ersten wird das nur gemacht wenn die datei vorhanden ist
und beim zweiten wird das nur gemacht wenn im opendialog auf "Öffnen" geklickt wird. Und das geht nur wenn die datei vorhanden ist

[Minz]

Bei TStrings handelt es sich lediglich um eine Klasse, die zwar Methoden angemeldet hat aber diese nicht selber implementiert -> abstrakte Basisklasse. (siehe Online-Hilfe)

TStringList ist ein Abkömmling von TStrings und implementiert die Methoden und Eigenschaften.

Gruß Minz

[Nalincah]

Cool..So genau wusst ich das auch noch nicht