Error al dar click en formulario

[jafera]

Solucionado

Buscando, buscando he adoptado este código:

Código Delphi [-]
procedure TF_Inici.ToolButton8Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
        if MDIChildCOUNT > 0 then
        begin
                ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
                Abort;
        end
        else
        begin
                if FindFirst('C:\Gestio_Arbitral_1.0\Temp\*.*', faAnyFile, SearchRec) = 0 then
                repeat
                    Deletefile('C:\Gestio_Arbitral_1.0\Temp\'+SearchRec.name);
                until (FindNext(SearchRec) <> 0);
                FindClose(SearchRec);

                Close;
        end;
end;

Gracias a todos

Josep

[jafera]

Mi gozo en un pozo.

En un principio funcionaba bien y ahora me da un error de incompatibilidad:

[dcc32 Error] Curses.pas(725): E2010 Incompatible types: 'PWideChar' and 'string'
[dcc32 Error] Curses.pas(727): E2010 Incompatible types: 'NativeUInt' and 'TSearchRec'
[dcc32 Fatal Error] F2063 Could not compile used unit 'Curses.pas'

Me parece a mi que la migración va a ser más dura de lo que pensaba.

Por cierto me sigue lanzando el access violation....

Saludos

Josep

[Neftali [Germán.Estévez]]

¿Porqué no ejecutas el código inicial paso a paso y ves en qué línea te está dando el error?
Coloca un Breakpoint al inicio del procedimiento y ejecuta hasta que llegue ahí.

[jafera]

Gracias Neftalí.

El breakpoint ya lo puse tal y como comenté en un post anterior.

Lo que me da es un error al compilar el la linea del DeleteFile que es donde dice lo de los tipos no compatibles

E2010 Incompatible types: 'PWideChar' and 'string'

Y así no me deja continuar, comento el trocito de codigo y funciona perfectamente.

Lo mas raro es que en el form principal tengo el mismo codigo en el boton de cerrar (copiar/pegar) y no da error de compilación.
He mirado todos los use, units y no hay ninguno que falte.
Ya no se que más mirar.
El problema del rtl190.bpl, puede venir por un script de CNPack para guardar la fecha y hora de compilacion y guardarlo en una variable para presentarlo en el formulario acerca de.

Gracias y saludos

[Neftali [Germán.Estévez]]

Perdón, no había leído esa parte...

Empezado por jafera

Lo que me da es un error al compilar el la linea del DeleteFile que es donde dice lo de los tipos no compatibles

Este error a veces da cuando hay definidas 2 funciones en diferentes units que se llaman igual. Dependiendo de que unit esté cogiendo, te dará el error que te sale a tí.
Para asegurarte de que quieres que coja la de la unit correcta (en tu caso la de SysUtils, creo) basta con que coloques la unit delante de la función.

Código Delphi [-]
    SysUtils.DeleteFile(...

[jafera]

Gracias Neftalí.

Como le digo siempre a un compañero que a veces me echa un cable con esto del Delphi, te debo un beso muy grande, jejeje....

Has dado justo en el clavo, por esto comenté de que la migración seria un poco laboriosa ya que debo adaptarme a estas nuevas premisas.

Hay algun libro, manual, link web, etc donde pueda recabar informacion?

Y en relacion al acces violation, alguien tiene un trozo de codigo para poder sacar la fecha y hora de compilacion y colocarlo en el acerca de sin depender del script de CNPack siguiente que es el que utilizo actualmente y no compila bien?

Código Delphi [-]
program Data_CompilacioG;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

var Lineas: TStringList;

begin
  Lineas:= TStringList.Create;
  try
    Lineas.Add('const DataCompilacioG = ''' + FormatDatetime('dd/mm/yyyy', Now) + ''';');
    Lineas.Add('const HoraCompilacioG = ''' + FormatDatetime('hh:nn', Now) + ''';');
    Lineas.SaveToFile('C:\Gestio_Arbitral_1.0\DataCompilacioG.inc');
  finally
    Lineas.Free;
  end;
end.

O tal vez hay que hacer alguna modificacion es este codigo, no se lo que me parece raro es que cuando abro cualquier proyecto en DXE5 me abre todos los data_compilacio de otro proyectos, cosa que en D6 no sucedia.

Repito, gracias y saludos

Josep

[Neftali [Germán.Estévez]]

Empezado por jafera

Y en relacion al acces violation, alguien tiene un trozo de codigo para poder sacar la fecha y hora de compilacion y colocarlo en el acerca de sin depender del script de CNPack siguiente que es el que utilizo actualmente y no compila bien?

Yo para esto, en algunos proyectos, utilizo un ejecutable (GetVersionFile) hecho en Delphi, que lo suelto en el mismo directorio de mi proyecto. Este ejecutable está hecho en muy sencillo y lo que hace es coger la información de un EXE (como parámetro) un generar un fichero de texto con la información de versión en el mismo directorio.

Luego tengo un BAT/CMD que lo llamo cuando me interesa, aunque se podría hacer de forma automátizada después de compilar o linkar.