[PASCAL] Variabile non inizializzata

[denis76]

Osservate questo frammento di codice:

procedure TMainForm.Log(riga: String);
var
  FileLog: TextFile;
  nomefile: String;
begin
    try
      nomefile:= 'Log.txt';
      AssignFile(FileLog, nomefile);
      if FileExists(nomefile) then begin
        Append(FileLog);
      end else begin
        ReWrite(FileLog);
      end;
      WriteLn(FileLog, riga);
      CloseFile(FileLog);
      Except on e: Exception do begin
      end;
    end;
  end;
end;

in compilazione ottengo il messaggio

TFFrontEnd32.pas(646,7) Hint: Local variable "FileLog" does not seem to be initialized

Avete idea per quale motivo?

Grazie mille, Denis.

[mondobimbi]

non c'è da preoccuparsi, si aspetta una assegnazione con := , ma come hai fatto tu va comunque bene.
ciao
sergio