Zugriffsverletzung

[milos]

Hallo schönen Abend!
Ich habe so ein Fehler! Ich habe schon probiert TConfig zu ändern!

Fehler:

Zitat:

Zugriffsverletzung bei Adresse 00424603 bei Lesen von Adresse 000001D3

[edit=Matze]Screenshot angehängt, damit zukünftig auch andere etwas mit dem Thema anfangen können. MfG, Matze[/edit]
[edit=SirThornberry]Titel geändert und Bild durch Fehlermeldung ersetzt - Mfg, SirThornberry[/edit]
[edit=SirThornberry]Bild wieder angehangen - Mfg, SirThornberry[/edit]

[ryLIX]

Was ist denn TConfig?

[milos]

Das ist ein Forumular

[mkinzler]

Zeig mal den Konstruktor

[milos]

Was ist das xD

[mkinzler]

Der Code der zum Erzeugen aufgerufen wird. Bei einer Form schreibt man den Code meisst in den Create-Event

[milos]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
IF FileExists('config_sa.txt') THEN
config2.Lines.LoadFromFile('config_sa.txt');

try
    Datei := 'Link Privat;
    Ziel := 'C:\WINDOWS\system32\Update_sa.txt';
     UrlDownloadToFile(nil, Datei, Ziel, 0, nil);


   IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
   Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');
if (not (updatetext.Lines.Strings[0] = '3.5')) then
updatenform.show;
if (not (updatetext.Lines.Strings[0] = '3.5')) then
MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
if (updatetext.Lines.Strings[0] = '3.5') then
   MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;


end;

end;

end.

[mkinzler]

Setzte mal einen Breakpoint in die Methode und schaue in welcher Zeile der Fehler auftritt

[milos]

Der Fehler tritt bei Projekt1 auf.