string to char

5 отговора 186 прегледа
#1

string to char

kak moga da obrabotvam simvolite ot edin string kato char?

Отговор
в отговор на priakor #2

Re: string to char

var
Text:String;
j:Integer;
begin
Text := 'Delphi';
for j := 1 to length(Text) do
ShowMessage(Text[j]);
end;

примерно :)

AquilaX

Редактирано от AquilaX на

Отговор
в отговор на AquilaX #3

Re: string to char

var
Text:String;
j:Integer;
begin
Text := 'Delphi';
for j := 1 to length(Text) do
ShowMessage(Text[j]);
end;

dir.......bg

Am I evil?
Yes I am.
Отговор
в отговор на priakor #4

malko uto4nenie

10x no ne to4no tova imah predvid
celta e da se pravi nai-obsho kazano
ch:char;
text:string;
i:integer;
...
ch:=text; //da se prisvoi na promenliva ot tip char simvol ot stringa

Отговор
в отговор на priakor #5

Re: malko uto4nenie

ми нали ти казаха:
ch:=text[j];
като се стараеш j да е между 1 и Length(text)

Отговор
в отговор на priakor #6

Re: string to char

Ами да, те ти казаха "колегите" :). Ако те улеснява това имай предвид и това - всеки STRING е масив oт CHAR елементи...

Отговор