| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

String -> Char [D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Роман ©   (2004-09-23 21:43:00) 

Подскажите как из string сделать char?

---

TUser   (2004-09-24 07:49:00) [1]

function StrToChar(S:string):char; // :)
var i:integer;
begin
if S = '' then
 result:=#0
 else begin
  result:=S[1];
  for i:=2 to length(S) do
   result:=result xor S[i];
  end;
end;

---

Defunct   (2004-09-24 02:33:00) [2]

Palladin ©   (24.09.04 01:26) [5]

:)
RunTime Error at 23.09.04 22:02

бывает

---

Palladin   (2004-09-24 01:26:00) [3]

стринг это много много чар...

> Defunct ©   (23.09.04 22:02)

Chr + F1

---

panov   (2004-09-23 22:19:00) [4]

>Defunct ©   (23.09.04 22:02) [3]

бррр

var
  c: char;
  s: String;
  n: Integer;
begin
  ...
  c := s[n];

---

Defunct   (2004-09-23 22:02:00) [5]

S: String;

Chr(S[n]) - где n>=1 - номер символа в строке

---

Роман   (2004-09-23 22:01:00) [6]

Спасибо все работает.

---

Fay   (2004-09-23 21:48:00) [7]

Предположу, что
YourChar := PChar(YourString)[0];

---

Наверх