string to char
5 отговора
186 прегледа
Re: string to char
var
Text:String;
j:Integer;
begin
Text := 'Delphi';
for j := 1 to length(Text) do
ShowMessage(Text[j]);
end;
примерно :)
AquilaX
Text:String;
j:Integer;
begin
Text := 'Delphi';
for j := 1 to length(Text) do
ShowMessage(Text[j]);
end;
примерно :)
AquilaX
Редактирано от AquilaX на
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.
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.
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
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
Re: malko uto4nenie
ми нали ти казаха:
ch:=text[j];
като се стараеш j да е между 1 и Length(text)
ch:=text[j];
като се стараеш j да е между 1 и Length(text)
Re: string to char
Ами да, те ти казаха "колегите" :). Ако те улеснява това имай предвид и това - всеки STRING е масив oт CHAR елементи...