Скачать: CL | DM;

Помогите перевести 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 знаешь? От сюда и пляши.

---

← →
han_malign ©   (2003-09-09 11:09) [12]

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

---

← →
han_malign ©   (2003-09-09 11:11) [13]

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

---

← →
VAleksey ©   (2003-09-09 11:36) [14]

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?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.016 c