Se te llena de caracteres raros porque esta mal.
Código Delphi
[-]
k := '';
for i:= 0 to miTstringlist.count -1 do
Begin
k := k + miTstringlist[i]
end;
La solucion es
Código Delphi
[-]
k := '';
for i:= 0 to miTstringlist.count -1 do
Begin
k := k + miTstringlist.Strings[i]
end;
Saludos.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;