hola que tal estaba usando excel y delphi y necesitaba validar los datos... de alguna manera traer el resultado a delphi compararlo y modificar el valor de la hoja de excel bueno aqui les dejo mi codigo pero no me funciona al 100% el problema es que me sigue trayendo el mismo valor... siempre es true y aunque deba de dar false no cambia el resultado de la funcion
Código Delphi
[-]
for X:=0 to npiezas-1 do begin
c:=X+fila; A:='A'+inttostr(c);
B:='B'+inttostr(c);
F:='=ISBLANK(R[-4]'+'C[-'+inttostr(x+1)+'])'; F2:='=ISTEXT(R[-4]'+'C[-'+inttostr(x+1)+'])';
formulaString2:=F2; XLS.Range['F1','F1'].select; XLS.Selection.ClearContents;
XLS.Range['F1','F1'].formula:=formulastring2;
v:=tostring(XLS.Range['F1','F1'].select); if v= 'True' then XLS.Range[B,B].value:='0';
showmessage(tostring(XLS.Range[B,B])); mostramos lo que trae la funcion
listainserta.Items.Add(tostring(XLS.Range[B,B])); XLS.Range[A,A].copy;
nombrepieza.Items.Add(tostring(XLS.Range[A,A]));
end;
aqui esta la funcion que me permite copiar valores desde excel ...
Código Delphi
[-]
function ToString(V: Variant): String;
begin
Result := V;
end;
si saben por que me sigue dando siempre true... aunque en realidad el resultado de la funcion que aplico en excel da false ... ayuda urgente me queda poco tiempo y no se que hacer... :S muchas gracias y espero que este codigo le sirva a alguien =)