[PASCAL-DELPHI]Salvataggio file

[Colino]

Ciao,
ho scritto questo codice in pascal x salvare un file:

var
    myFile:text;

begin
     assign(myFile,'c:\Testo.txt');
     rewrite(myFile);
     writeln(myFile, 'Riga1');
     writeln(myFile, 'Riga2');
     writeln(myFile, 'Riga3');
     close(myFile);
end.

funziona perfettamente,ma se provo a inserirlo in delphi 7 mi da errore:

var
     myFile:text;
begin
Assign(myFile, 'c:\testo.txt');
Rewrite(myFile);
writeln(myFile, 'Riga1');
writeln(myFile, 'Riga2');
writeln(myFile, 'Riga3');
close(myFile);
end.

mi potreste dire xkè??
non riesco a risolvere il problema...

[alka]

Originariamente inviato da Colino
funziona perfettamente,ma se provo a inserirlo in delphi 7 mi da errore [...]
mi potreste dire xkè??

E' opportuno che tu dica qual è l'errore che ti viene restituito; in questo modo, non obblighi chi è intenzionato a risponderti a copiare il tuo codice e compilarlo per verificare il funzionamento.

Ciao!

[Colino]

presto detto:
-------------------------------------------
incompatible types:'TPersistent' and 'Text'
Too many actual parameters
Could not compile used units
-------------------------------------------

sono i messaggi di errore che mi da nel compilarli...
non so cosa vuol dire...
mi potete aiutare?

[AlbertoPicca]

Prova a sostituire la dichiarazione della variabile MyFile, ovvero :

MyFile: TPersistent;

L'errore dovrebbe apparire nella riga in cui viene tentato l'Assign, poiché questa procedura necessita di un parametro in ingresso di tipo TPersistent.
Questa, a grandi linee, é la traduzione dell'errore; ma non avendo Delphi a portata di mano non posso verificare...

Comunque, per la gestione dei file, ti consiglio di usare la classe TStringList che facilità il salvataggio dei dati su file.

[alka]

Io ho provato a inserire il tuo codice all'interno di una Console Application, ma non ricevo nessun errore.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myFile:text;
begin
  Assign(myFile, 'c:\testo.txt');
  Rewrite(myFile);
  writeln(myFile, 'Riga1');
  writeln(myFile, 'Riga2');
  writeln(myFile, 'Riga3');
  close(myFile);
end.

Ciao!

[Colino]

infatti,
se uso il dev pascal non mi da errore...
se uso il deplhi si...
cmq non ho capito bene cosa intendevi alberto..me lo potresti spiegare??

[alka]

Originariamente inviato da Colino
se uso il dev pascal non mi da errore...
se uso il deplhi si...

Hai provato a seguire il mio percorso?

[AlbertoPicca]

Originariamente inviato da Colino
cmq non ho capito bene cosa intendevi alberto..me lo potresti spiegare??

L'errore che ti é apparso indica che la procedura chiamata (Assign() ) richiede in ingresso un parametro di tipo TPersistent.
La variabile myFile che hai definito come Text, forse deve essere dichiarata come TPersistent.

E' probabile che mi stia sbagliando perché Alka non ha avuto nessun problema dichiarando la variabile MyText come Text;

[alka]

Credo che l'unica soluzione sia quella di postare il contenuto completo della unit, o almeno la parte della clausola uses, per riuscire a capire bene dov'è stato commesso l'errore.

Ad esempio, potrebbe esserci una unit importata che definisce una routine Assign che nasconde quella di sistema, oppure - ancora peggio - il codice è scritto all'interno di un evento e pertanto si sta cercando di richiamare il metodo Assign di un oggetto (probabilmente, il form stesso) il quale prevede il passaggio del parametro di tipo TPersistent che dovrebbe rappresentare il componente da cui prelevare le proprietà che devono essere assegnate all'istanza del form.

Ciao!

[Marco_Frigerio]

beh se ti può essere di aiuto...

in pascal va bene:

var
    myFile:text;

begin
     assign(myFile,'c:\Testo.txt');
     rewrite(myFile);
     writeln(myFile, 'Riga1');
     writeln(myFile, 'Riga2');
     writeln(myFile, 'Riga3');
     close(myFile);
end.

ma in Delphi è:

var  myFile:textFile;

begin

  {$I-}
    AssignFile(myFile, 'ciao.txt');
    Rewrite(myFile);
  {$I+}

  if IOResult=0 then
    begin
      writeln(MyFile, 'ciaooooo');
      closeFile(MyFile);
    end; 
end;

ciaooooo...