Перевести сhar в integer

[Ckomoroh]

Я задался целью сделать кликер.
Перемещать курсор и имитировать клик я умею, теперь нужно чтобы координаты, куда нужно переместить курсор, и действия читались из файла.
Например: в файле записано

10 10
cl

Программа должна переместить курсор в точку с координатами(10,10) и имитировать клик.
Но чтобы прочесть файл нужна переменная char, а координаты должны быть числового типа....

Вопрос: как перевести char в integer...

Заранее благодарен.

[Selestis]

var f: text;
x,y: integer;
s: string;

assign(f,'file.txt');
reset(f);
readln(f,x,y);
readln(s);
if s = 'cl' then OnClick;
Close(f);

[vovk]

а разве Strtoint не работает?

[Ckomoroh]

Не работет:

f:text;
assign(f,'file.txt');(файл создан)
close(f);

Изменил

f:textfile;
assignfile(f,'file.txt');
closefile(f);

Но все равно не читает - выдает ошибку:
Project Project1.exe raised exception class EInOutError with message 'I/o error 6'. Process stopped. Use Step or Run to continue.

[Ckomoroh]

vovk.
Сделал, получилось, но читает только данные в столбик,
т.е.
в файле:
10 10
cl
код:
readln(main,xs,ys);
read(main,ds);
-это не работает, та же ошибка, а при
в файле:
10
10
cl
код:
readln(main,xs);
readln(main,ys)
read(main,ds);
-это работает(main - переменная файла)

[Proof]

var
f: TextFile;
s1,s2: String;
begin
AssignFile(f, 'd:\File.txt');
Try
  reset(f);
  Readln(f, s1, s2);
  ShowMessage(s1+' '+s2);
Finally
  CloseFile(f);
End;

end;

[Proof]

var
f: TextFile;
s1,s2: String;
begin
AssignFile(f, 'd:\File.txt');
Try
  reset(f);
  Readln(f, s1, s2);
  ShowMessage(s1+' '+s2);
Finally
  CloseFile(f);
End;

end;

[vovk]

я бы на вашем месте всё в ини файле организовал и не мучался, но если хочется своего формата, то определяй структуру файла, обозначай разделители, считывай потом всё в рекорды и используй как нужно..
Всёже это описано в любом учебнике, читай о типизированых файлах и всё.

[Ckomoroh]

var
f: TextFile;
x,y: String;
begin
AssignFile(f, 'main.txt');
Try
  reset(f);
  Readln(f,x,y);
Finally
CloseFile(f);
End;
end;

x, y - не переводятся в integer, проверил x='10 10',а y='';

[Neeter]

procedure TForm1.Button1Click(Sender: TObject);
var
 f: TextFile;
 sx,sy: string;
 act: string;
 x, y: integer;
begin
 AssignFile(f, 'C:\pos.txt');
 try
  reset(f);
  Readln(f,sx);
  sy := Copy(sx, Pos(' ', sx) + 1, Length(sx));
  Delete(sx, Pos(' ', sx), Length(sx));
  Readln(f, act);
  x := StrToInt(sx); y := StrToInt(sy);
  if act = 'cl' then
  begin
   SetCursorPos(x, y);
   Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
   Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
  end;
 finally
  CloseFile(f);
 end;
end;