shaktale
11-06-2003, 12:01:01
Hola a todos!
Estoy inentando pasar por referencia un array dinamico de TEdit y modifiicar el contenido de uno de estos, pero al compilar no me deja, me da: left side cannot be asiggned to
¿Cual es el problema? ¿No se puede pasar un array dinamico por referencia? No se si va por ahi porque un array dinamico no es mas que un array de punteros ¿no?
el codigo es el siguiente
procedure ParsReal(var a:Array of TEdit);
var
i,j:integer;
begin
for i:=0 to Length(a)-1 do
for j:=1 to Length(a[i].Text) do
if a[i].Text[j]='.' then
a[i].Text[j]:=',' // Aqui tengo el problema
else if (a[i].Text[j]<'0') or (a[i].Text[j]>'9') then
raise Exception.Create(a[i].Name+' real no válido');
end;
Gracias
Un saludo
Estoy inentando pasar por referencia un array dinamico de TEdit y modifiicar el contenido de uno de estos, pero al compilar no me deja, me da: left side cannot be asiggned to
¿Cual es el problema? ¿No se puede pasar un array dinamico por referencia? No se si va por ahi porque un array dinamico no es mas que un array de punteros ¿no?
el codigo es el siguiente
procedure ParsReal(var a:Array of TEdit);
var
i,j:integer;
begin
for i:=0 to Length(a)-1 do
for j:=1 to Length(a[i].Text) do
if a[i].Text[j]='.' then
a[i].Text[j]:=',' // Aqui tengo el problema
else if (a[i].Text[j]<'0') or (a[i].Text[j]>'9') then
raise Exception.Create(a[i].Name+' real no válido');
end;
Gracias
Un saludo