open a new file gives error incompatible types

CloudDancer

Delphi Developer

Fri, 28 May 1999 03:00:00 GMT

open a new file gives error incompatible types

procedure TmainChangery.FileSaveAs(Sender: TObject);
var current : System.Text;
filename : String[80];
begin
if SaveDialog.Execute then
begin
filename := SaveDialog.Filename;
Assign(current, filename);
Rewrite(current);
currentset.Caption := filename;
end;
end;

Incompatible types Tpersistent and Text.

Can someone please tell me what is wrong about this assign statement.

Please Mail the answer to Marteijn_Nouw...@thepentagon.com

Thanks,

Marteijn.

Brad Choa

Delphi Developer

Sat, 29 May 1999 03:00:00 GMT

Re:open a new file gives error incompatible types

On 9 Dec 1996 22:33:06 GMT, "CloudDancer"

Quote

<CloudDan...@thepentagon.com> wrote:
>procedure TmainChangery.FileSaveAs(Sender: TObject);
>var current : System.Text;
> filename : String[80];
>begin
> if SaveDialog.Execute then
> begin
> filename := SaveDialog.Filename;
> Assign(current, filename);
> Rewrite(current);
> currentset.Caption := filename;
> end;
>end;

>Incompatible types Tpersistent and Text.

>Can someone please tell me what is wrong about this assign statement.

>Please Mail the answer to Marteijn_Nouw...@thepentagon.com

You used "System.Text" but you didn't prefix Assign with "System.".
A better way is to use "textfile" as your file type and AssignFile and
CloseFile for accessing the file.

"thepentagon.com"?

Cheers

--
Brad Choate <cho...@cswnet.com> | http://www.cswnet.com/~choate
Webmaster of The Delphi EXchange | http://www.DelphiEXchange.com
Have a Coke and a :)

Ray Lischn

Delphi Developer

Sun, 30 May 1999 03:00:00 GMT

Re:open a new file gives error incompatible types

On 9 Dec 1996 22:33:06 GMT, "CloudDancer"

Quote

<CloudDan...@thepentagon.com> wrote:
>procedure TmainChangery.FileSaveAs(Sender: TObject);
>var current : System.Text;
> filename : String[80];
>begin
> if SaveDialog.Execute then
> begin
> filename := SaveDialog.Filename;
> Assign(current, filename);

AssignFile(current, filename);

Quote

> Rewrite(current);
> currentset.Caption := filename;
> end;
>end;

--
Ray Lischner, Tempest Software, Inc., Corvallis, Oregon, USA
Author of Secrets of Delphi 2 (http://www.tempest-sw.com/secrets/)

Other Threads

1. Identical string declarations give incompatible types error

2. A bug in Pascal RESET gives runtime error file isnt open

3. Incompatible types error

4. FindClose error message (Incompatible types)

5. Weird 'Incompatible types' error

6. Error message: "Incompatible types"

7. Weird 'Incompatible types' error

8. problem to compile a type library -Incompatible types

9. D2/D3 BUG: Typed TObject gives internal error

10. giving a new file the attributes of an old one