столкнулся с проблемой наименования скриншота

[DatonHhod]

Пишу программу: автоматический скриншотер...тоесть прог-ма которая делает снимки экрана и я столкнулся с проблемой: при запуске програмы, когда я делаю наименования скриншота (цивровое 1,2 и т.д.) всё работает и т.д..но когда заместо цифр я пишу (буквенное наименование) то у меня выдаёт ошибку "is not a valid integer value." в чём проблемма?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Menus, jpeg;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
MainMenu1: TMainMenu;
BitBtn1: TBitBtn;
Image1: TImage;
Timer1: TTimer;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Canvas:TCanvas;
ScreenV:HDC;
i: String;
begin
i:='1';

ScreenV := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect(Rect(0,0,Ima ge1.Width,Image1.Height),
Canvas, Rect(0,0,Screen.Width,Screen.Height ));
ReleaseDC(0,ScreenV);
Canvas.Free;

Label3.Caption:=IntToStr(StrToInt(L abel3.Caption)+StrToINt(i));
Image1.Picture.SaveToFile(IntTOStr( StrToInt(Edit1.Text)+StrToInt(Label 3.Caption))+Edit2.Text);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Form1.close;
end;
end.[/SIZE][/SIZE]

[Пепел Феникса]

Image1.Picture.SaveToFile(Edit1.Text+Label 3.Caption+Edit2.Text);

потому что у вас везде было преобразование к числу, вот ошибка и выскочила...даже текст ошибки не прочитали...

а зачем код два раза?

вообще если честно, в коде много глупостей.

[DatonHhod]

а как зделать чтоб и числа и буквы были? ну зачем 2 раза код и эти глупости сам незнаю... но учитель так мне накривил и какой будет правельный вариант кода?

[DatonHhod]

так не кто и не подсказал

[raxp]

каждый раз при вызове сохранения файла скрина, задавайте ему имя, к примеру...

'суперскрин ' + formatdatetime('yyyy_mm_dd',date)+formatdatetime('_hh',time) +'.bmp';

[stck]

Сообщение от DatonHhod

так не кто и не подсказал

Image1.Picture.SaveToFile(Edit1.Tex t+Label3.Caption+Edit2.text);


Но вообще лучше перепиши процедуру BitBtn1Click
Сначала объяви глобально
bm: TBitMap;
Jp: TJpegImage;
fname:string;
Потом кинь SavePictureDialog и правь процедуру на эту:

begin
i:='1';
ShowCursor(false);
bm := TBitMap.Create;
bm.Width := Screen.Width;
bm.Height := Screen.Height;
BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(0), 0, 0, SRCCOPY);
Jp := TJpegImage.Create;
Jp.Assign(bm);
Jp.CompressionQuality :=100 ;
Jp.Compress;
ShowCursor(true);
Label3.Caption:=IntToStr(StrToInt(L abel3.Caption)+StrToINt(i));
fname:=((Edit1.Text+Label3.Caption) );
SavePictureDialog1.FileName := FName;
if SavePictureDialog1.Execute then
begin
FName := SavePictureDialog1.FileName;
Jp.SaveToFile(FName);
end;
bm.Destroy;
Jp.Destroy;
end;

Потом в параметрах SavePictureDialog фильтры укажи
JPEG Image File (*.jpeg)|*.jpeg
JPEG Image File (*.jpg)|*.jpg
Portable Network Graphics (*.png)|*.png
GIF Image (*.gif)|*.gif
и DefaultExt - jpg