Как перевести Sting в Char?

[vitamin.rulez]

Здарово всем!, кто нить знает как перевести String в тип Char?
Заранее спасибо!

[Ozerich]

ну например первый символ строки можно взять так

var ch:char;
s:string;
begin
s:='abcdefg';
ch:=s[1];
showmessage(ch)//выдадет a;
end;

[vitamin.rulez]

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

ну например первый символ строки можно взять так

var ch:char;
s:string;
begin
s:='abcdefg';
ch:=s[1];
showmessage(ch)//выдадет a;
end;

а как всю строку?

[0nni]

никак =)
Может вы имеете в виду PChar? Тогда так PChar(s)
на самом деле никакого перевода не происходит, это аналогично @S[1]

[vitamin.rulez]

procedure Tsimulator.FormKeyPress(Sender: TObject; var Key: Char);
var
k,g:integer;
MYKEY:Char;
begin
if Key=label3.Caption then
begin
label1.caption:='ok';
Randomize;
k:=RandomRange(192, 255);
MYKEY:=Chr((k));
label3.Caption:=MYKEY;
Label2.Caption:=Label2.Caption+Key;
end
else
begin
label1.caption:='ошибка ';
Label1.Caption:=Label1.Caption+Key;
g:=g+1;
label5.caption:=IntToStr(g);
end;
end;

У меня задача Клавиатурный тренажер, вот это код он ставит Случайные символы, а мне нужно чтобы они были заданы например в Edit.

[0nni]

Все правильно, вот только переменная g, я так понял счетчик ошибок?
Объявите ее как глобальную. И в диапазоне (192, 255) не все символы есть на клавиатуре.
_
Да, и Randomize, не следует вызывать каждый раз.

[vitamin.rulez]

Сообщение от 0nni

Все правильно, вот только переменная g, я так понял счетчик ошибок?
Объявите ее как глобальную. И в диапазоне (192, 255) не все символы есть на клавиатуре.
_
Да, и Randomize, не следует вызывать каждый раз.

да, g-это счетчик ошибок, а 192-255 это диапазон русский букв (больших и маленьких)
что именно объявить как глобальную?

[0nni]

Переменную g нужно объявить как глобальную, иначе она не будет показывать верный результат.
Да, с диапазоном все верно.