Erro - Arquivo .ini com integer para String

Shepher · 23 de janeiro de 2011

Olá

estou fazendo um programa que quando ele aperta printscreen salva a tela !

Só que salva por exemplo:

ScreenShot1

ScreenShot2

ScreenShot3

ScreenShot4

...

Bom, o problema é que, eu estou guardando a quantidade de prints já salvas dentro de um .ini, que no caso isso já se torna uma integer e eu gostaria de saber como fazer para transformar a integer numa string.

Tentei usar o PChar, mas acaba dando erro Acess Violation at address blaá blá

O Código tá o seguinte:

Salvando o arquivo .ini com o valor:

QtdScreen := TIniFile.create('C:\Windows\SHAutoLogin.ini');
QtdScreen.WriteInteger('Screens', 'Quantidade', Quantidade);
QtdScreen.Free;

Acessando o .ini com o valor:

QtdScreen := TIniFile.Create('C:\Windows\SHAutoLogin.ini');
Quantidade := QtdScreen.ReadInteger('Screens', 'Quantidade', 0);

Código da Verificação:

procedure TForm3.Timer1Timer(Sender: TObject);
var
dc:HDC;
jpg:TJPEGImage;
bmp:TBitmap;
QtdScreen : TIniFile;
Quantidade2 : Integer;
filearq : string;
begin
if tbKeyIsDown(VK_SNAPSHOT) then
  try
    jpg:=TJPEGImage.Create;
    bmp:=TBitmap.Create;
    bmp.Width:=800;
    bmp.Height:=600;
    dc:=GetDC(0);
    BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,dc,0,0,SRCCOPY);
    jpg.CompressionQuality:=100;
    jpg.Assign(bmp);
    QtdScreen := TIniFile.Create('C:\Windows\SHAutoLogin.ini');
    Quantidade2 := QtdScreen.ReadInteger('Screens', 'Quantidade', 0);
    Label3.Caption := PChar(Quantidade);
    filearq := 'ScreenShot'+Label3.Caption+'.jpg';
    jpg.SaveToFile(Edit2.Text + filearq);
    Quantidade := Quantidade + 1;
    finally
      DeleteDC(dc);
      bmp.Free;
      jpg.Free;
end;
end;

Está desse jeito, e assim não dá ! Tentei armazenar num Label e transformar a int em PChar ... mas dá aquele erro ! Gostaria de armazenar mesmo na .ini porque estou treinando justamente isso ! Mas, se tiverem outra ideia, está muito bom !

obrigado a quem ajudar (esse fórum me odeio, não sei porqe, mas nunca responde minhas dúvidas ) !