Newsgroup: it.comp.lang.delphi
Titolo: Qualcuno può aiutarmi ?

Salve sono nuovo della programmazione OOP e di Delphi.
Cercando di crearmi un semplice esempio ottengo errori per i quali non so
darmi spiegazione.
Vi allego copia delle 2 unit....nella speranza che qualcuno mi chiarisca le
idee.
Ciao.
*** PROJECT ***
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  UTextF in 'UTextF.pas';
  var
  stream:TFileTesto;
  x     :Integer;
  begin
  stream:=TFileTesto.Create;
  stream.AssegnaFile('c:\smiass\archivi\depcdir.txt');
  stream.CaricaFile;
  for x:=1 to (stream.Contenuto.Count - 1) do
      writeln(stream.Contenuto.Names[x]);
  readln;
  end.
*** UNIT ***
unit UTextF;
interface
uses SysUtils,classes;
Type
   TFileTesto = class(TObject)
     private
       ObjFile    : TextFile;
       FContenuto : TStringList;
       procedure SetContenuto(const Value: TStringList);
     protected
     public
       function  AssegnaFile(NomeFile:String):boolean;
       procedure CaricaFile;
       property  Contenuto:TStringList read FContenuto write SetContenuto;
  end;
implementation
{ TFileTesto }
function TFileTesto.AssegnaFile(NomeFile: String): boolean;
begin
  Result:=true;
  AssignFile(ObjFile,NomeFile);
  try
    if FileExists(NomeFile) = False then
           Rewrite(ObjFile)
    else
           Append(ObjFile);
    reset(ObjFile);
  except
    Result:=false;
  end;
end;
procedure TFileTesto.CaricaFile;
var
  ListaFile :TStringList;
  Stringa   : String;
  x,y       : Integer;
  c         : Char;
begin
  ListaFile.Create;
  while not eof(ObjFile) do
    begin
      readln(ObjFile,Stringa);
      for x:=1 to Length(Stringa) do
        begin
           c:=Stringa[x];
           y:= ord(c);
           if y=0 then
              Stringa[x]:=' ';
        end;
        ListaFile.Add(Stringa);
    end;
  ListaFile.Add('***FineFile***');
  SetContenuto(ListaFile);
end;
procedure TFileTesto.SetContenuto(const Value: TStringList);
begin
  FContenuto := Value;
end;
end.

 idee.
E' utile descrivere in modo il piů dettagliato possibile l'errore, senza 
che sia necessario copiare il codice e compilarlo (e/o eseguirlo) per 
conoscerlo.
Dai tipi di errore piů semplici, spesso č possibile risalire alla causa 
osservando semplicemente il codice.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 darmi spiegazione.
Come detto in altri post, ribadisco il concetto che è *INACETTABILE* che 
uno sviluppatore posti un msg su un ng di programmazione dicendo che una 
tale cosa gli da errori senza indicare alcuna informazioni sul tipo 
degli errori restituiti.
Inoltre, la netiquette suggerisce di usare subject significativi in modo 
da non costringere i frequentattori dei ng ad aprire i msg per capire di 
quale problema si tratta.
Per intanto, benvenuto a bordo.
AS


... tralasciando il fatto che gli altri che ti hanno risposto hanno 
perfettamente ragione...
A me dà un unico errore in compilazione:
===============
[Warning] Unit1.pas(46): Variable 'ListaFile' might not have been 
initialized
===============
Questo viene dal fatto che la variabile ListaFile (che, in realtà 
contiene un puntatore ad una classe) non è stata correttamente 
inizializzata (contiene, presumibilmente, ancora 'nil').
La chiamata corretta sarebbe:
===============
...
begin
   ListaFile := TStringList.Create;
   while not eof(ObjFile) do
...
===============
È questo o c'è dell'altro?
(NON ho provato ad esegure)
HiH
ZioNemo

 ha scritto nel messaggio
news:lg8Xc.1815$G36....@tornado.fastwebnet.it...
