Zugriffsverletzung

[Helmi]

Zitat von ryLIX:

Helmi war ein wenig schnell mit schreiben

Aber nur ein bischen

Mir ist noch was aufgefallen.
Diesen Part solltest du etwas umbauen, denn was ist, wenn die Datei nicht vorhanden ist?
(Fehler beim Downloaden, keine Schreibrechte auf c:\Windows\system32\)

Und ein paar If-Anweisungen könntest dir ersparen

Delphi-Quellcode:

   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)

abgeändert:

Delphi-Quellcode:

   
    If FileExists('C:\WINDOWS\system32\Update_sa.txt') then
      begin
        Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32\Update_sa.txt');

        If (updatetext.Lines.Count > 0) and (updatetext.Lines[0] = '3.5') then
         MessageDlg('Sie haben schon die neuste Version!', mtError, [mbOK], 0)
        else
          begin
            updatenform.show;
            MessageDlg('Drücken sie auf Updaten damit sie die neuste Version bekommen', mtError, [mbOK], 0);
          end;
      end
    else
      MessageDlg('Datei: "Update_sa.txt" konnte nicht gefunden werden!', mtError, [mbOK], 0);

(Ich hab mir erlaubt eine neue Meldung aufzubauen)

[Edit]
DeddyHs Hinweis mit eingebaut