Convert from String to Char

[asdf]

r: string;
s: string;
c: char;

s:=rightstr(r,1);

c:= ????(s);

Are there any functions or coding ?

[theo]

Code: [Select]

c:=s[i];

[asdf]

Edit2.Text:= leftstr(Edit1.text,1)[1];

Is something shown in Edit2.Text now a Char ?

[xenblaise]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
c:char;
begin
s:='asdf';
c:=s[1];
showmessage(c);
end;

[captian jaster]

Lets make things simpler to understand...
A string is an array of chars so any char you want comes from the same way of working with any other arrays.

Code: [Select]

Var
 Str:String = '123';
 ...
 Str[1]//Returns 1
 Str[2]//Returns 2
 Str[3]//Returns 3
There...

[eny]

Lets make things simpler to understand...

Let's make it less simple 

Code: Pascal  [Select][+][-]

1. var s: ansistring;
2. begin
3.   s := '5€';
4.   showmessage(s[2]);
5. end;

This does nót display the Euro symbol.

[captian jaster]

Lets make things simpler to understand...

Let's make it less simple 

Code: Pascal  [Select][+][-]

1. var s: ansistring;
2. begin
3.   s := '5€';
4.   showmessage(s[2]);
5. end;

This does nót display the Euro symbol.

Perhaps its something else then
Or...
Don't use Euro symbols 

Either way you've stumped me...

[Leledumbo]

This does nót display the Euro symbol.

What about:

Code: [Select]

ShowMessage(AnsiToUTF8(s)[2]);

[theo]

What about:

Code: [Select]

ShowMessage(AnsiToUTF8(s)[2]);

Please don't spread misinformation about UTF8. It's confusing enough... 

Code: Pascal  [Select][+][-]

1. uses LCLProc;
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. var s: ansistring;
5. begin
6.  s := '5€';
7.  showmessage(UTF8Copy(s,2,1));
8. end;  

[eny]

Please don't spread misinformation about UTF8. It's confusing enough... 

It's no rocket science 
Maybe accessing strings via array subscription should be flagged as an error or warning.
And if required (and one knows what one is doing) can be enabled via a compiler directive.

[typo]

If AnsiString is deprecated.

[TurboRascal]

r: string;
s: string;
c: char;

s:=rightstr(r,1);
c:= ????(s);

I guess what you need is:

Code: Pascal  [Select][+][-]

1. r: string;
2. c: char;
3.  
4. c := r[High(r)];
5.  

if I didn't get something wrong...