Problema com String e Boolean

21/09/2017

1. Na minha aplica��o, a pessoa clica em um componente image, que carrega a imagem escolhida. [esta parte esta funcionando sem problemas]

2. Pego o nome do caminho da pasta e separo em uma var. exe:[ c:\\fvf\\fotos ]
3. Ent�o eu pego o arquivo e o renomeio seu nome. Nome original [ carro.jpg ] para [ CFV-1111f1.jpg ]

4. O problema � o edit receber as duas variaveis o delphi acusa o seguinte erro: [ incompatible types 'string' and 'boolean' ]
ja at� cheguei a mudar a variavel npath2 pra boolean mas n�o adiantou e nao consigo aplicar o booltostr.

procedure TForm1.Button38Click(Sender: TObject);
VAR
imagem : Tpicture;
Nrename : string;
Npath : string;
Npath2 : string;


begin

//1 [ Funcionando ]

 if OpenPictureDialog1.execute then
  Begin
  imagem:=Tpicture.create();
  imagem.loadfromfile(OpenPictureDialog1.filename);
  image3.Picture := imagem;
  edit206.text := OpenPictureDialog1.filename;
  imagem.Free;

//2
Npath   := ExtractFilepath(OpenPictureDialog1.FileName);

//3
Nrename := ExtractFilename(OpenPictureDialog1.FileName);
Npath2  := Renamefile( Nrename , edit207.Text+'f1.jpg' )

//4
EDIT211.Text := Npath+Nrename;



end;

Bruno Marchi

Curtir t�pico + 0

Responder

Posts

21/09/2017

Bruno Marchi

No final o edit tem q ficar [ c:\\fvf\\fotos\\CFV-1111f1.jpg ]

Responder

Gostei + 0

21/09/2017

Felipe Morais

Voc� nunca ir� consegui atribuir a proprietade "Text" de um Edit, pois o tipo dela � String. A fun��o RenameFile retorna um Boolean (True or False).

Veja o Help do Delphi:

Delphi syntax:

function RenameFile(const OldName, NewName: string): Boolean;

Description

RenameFile attempts to change the name of the file specified by OldFile to NewFile. If the operation succeeds, RenameFile returns true. If RenameFile cannot rename the file (for example, if the application does not have permission to modify the file), it returns false.

Note: If NewFile represents the name of an existing file, RenameFile behaves differently under Windows and Linux. Under Windows, the rename operation fails. Under Linux, RenameFile silently removes the other file.

Se voc� j� renomeou o arquivo para "edit207.Text+'f1.jpg", por que simplesmente n�o faz isso ap�s renomear?

Nrename := ExtractFilename(OpenPictureDialog1.FileName);
Npath2  := Renamefile( Nrename , edit207.Text+'f1.jpg' )
EDIT211.Text :=  edit207.Text+'f1.jpg' ;

Responder

Gostei + 0

22/09/2017

Bruno Marchi

Eu exemplo n�o funcionou ele ainda acusa a imcompatibilidade de variaveis.

O que eu preciso e n�o consigo fazer ai � converter esse boolean em string, sou novo com delphi esse tipo de convers�o eu n�o sei.

Pego o nome do caminho e separo, pego o nome da foto separo e renomeio, depois ponho os dois juntos no edit mostrando o caminho da foto com seu novo nome.

Uma das coisas que acontece � que o arquivo � renomeado na pasta, mas no OpenPictureDialog1.FileName fica o nome anterior da foto.

Responder

Gostei + 0