Помогите перевести String в Char

← →
Raper (2003-09-09 09:43) [0]

var
s:string; Ps:Char; i:integer;
begin
for i :=1 to Lenght(Edit1.Text) do begin //Edit1 = "ABC"
s:=Copy(Edit1.Text,i,1); //s = первый символ "A"
ls:=s; // ошибка Char and TCaption
end;
end;

Как мне присвоить ls переменную S

← →
Unknown (2003-09-09 09:45) [1]

char ato tol"ko odun byte:
var
s:string; Ps:Char; i:integer;
begin
for i :=1 to Lenght(Edit1.Text) do begin //Edit1 = "ABC"
s:=Copy(Edit1.Text,i,1); //s = первый символ "A"
ls:=s[1]; //ошибка Char and TCaption
end;
end;

← →
raper (2003-09-09 09:47) [2]

Прошу прощения переменна Char не Ps а ls

← →
HolACost! © (2003-09-09 09:48) [3]

це такое ls?

← →
HolACost! © (2003-09-09 09:50) [4]

А что вы хотите сделать?!

← →
raper (2003-09-09 09:53) [5]

v primere ya zadal Char kak Ps a sam ispolzoval ls tak vot zamenite Ps na ls i primer budet pravilno pokazan..

← →
HolACost! © (2003-09-09 09:59) [6]

А у меня откомпилялось - кто ошибку указывает - юзверг или компайлер - вроде как компайлер!

← →
Unknown (2003-09-09 10:02) [7]

тяжелый случай :)

← →
HolACost! © (2003-09-09 10:03) [8]

Надеюсь не мне?

← →
Кщд (2003-09-09 10:38) [9]

орешник?

← →
HolACost! © (2003-09-09 10:43) [10]

Сначала в потрепаться, а потом в орешник!

← →
Плохиш_ (2003-09-09 10:43) [11]

2Raper

Разницу между string и char знаешь? От сюда и пляши.

ls:=PChar(s) - если время жизни(область определения) ls не больше времени жизни s, и s не изменяется за все время использования ls.
Если ls нужно использовать после уничтожения s(при выходе из области видимости или изменении занчения s) то
ls:=SysUtils.StrNew(s);
или
GetMem(ls,Length(s)+1);Move(s[1],ls^,Length(s));ls[Length(s)+1]:=#0;
и потом не забыть
StrDispose(ls) или FreeMem(ls)

см.также SysUtils: StrAlloc,StrPCopy, et cetera

упс, обознатушки

Var
tStr:String;
Ps:Char;
i:integer;
Begin
tStr:=Edit1.Text;
for i := 1 to Length(tStr) do
begin
Ps := tStr[i];
.....
// Делаем все что надо с символом :-)
.....
end;
end;

PS
И все - таки ... м..да..аа.
И что такое ls?

Помогите перевести String в Char Найти похожие ветки