Pessoal, estou criando a classe abaixo e na linha marcada está dando um erro de
compilação. Trabalhei com várias linguagens ultimamente e acho que estou
confundindo os conceitos... Alguém sabe onde está o erro ?
unit clParametos;
interface
uses
SysUtils, Classes, Dialogs, Controls, IdGlobal, DateUtils;
type
TParametros = class(TObject)
private
FUsuario: string;
...
procedure SetUsuario(const Value: string);
...
public
property Usuario: string read FUsuario write SetUsuario;
...
constructor Create();
end;
type
regParametros = record
Usuario: array[1..50] of char;
...
end;
implementation
var
fParametros: file of regParametros;
Parametros: regParametros;
constructor TParametros.Create;
var
aParametros: TextFile;
begin
FUsuario:= 'Demonstração';
...
end;
procedure TParametros.CriarArquivo;
var
aParametros: TextFile;
begin
AssignFile(aParametros,'Parametros.dat');
Rewrite(fParametros);
with Parametros do
begin
Usuario:= FUsuario; // aqui acontece o erro "Incompatible types:
'Array' and 'String' "
...
end;
Write(fParametros,Parametros);
Close(fParametros);
end;
procedure TParametros.SetUsuario(const Value: string);
begin
FUsuario := Value;
end;
end.
Luiz Kohl
www.byKohl.com
Messenger: [EMAIL PROTECTED]
Skype: bykohl
Celular: 27-8115-5692
Vitória - ES - Brazil
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
