ПРЕОБРАЗОВАТЬ String в array[0..128] of char !!!!

← →
except © (2006-04-02 04:26) [0]

Помогите люди добрые !!! Ну никак не получается сделать. Кстати, такая тема уже была, но эту ветку похоже удалили! HELP!

← →
Джо © (2006-04-02 04:30) [1]

var S: string; CharArray: array [0..128] of Char; ... StrCopy(CharArray,@S[1]);
Подойдет?

← →
DiamondShark © (2006-04-02 11:45) [2]

StrPLCopy(CharArray, S, 128)

Так красивше ;)

← →
Anatoly Podgoretsky © (2006-04-02 14:22) [3]

CharArray[128] := #0;

← →
Джо © (2006-04-02 14:54) [4]

> [2] DiamondShark © (02.04.06 11:45)

Вот, ей-богу — забыл как она называется, а в справку было лень лезть :)

← →
Malik © (2006-04-02 18:34) [5]

...
var ch:array [0..128] of char;
s:string;
...
for i:=0 to (length(s)-1) do begin
ch[s]:=s[i+1];
end;
...

← →
Leonid Troyanovsky © (2006-04-02 19:45) [6]

> Malik © (02.04.06 18:34) [5]

> for i:=0 to (length(s)-1) do begin
> ch[s]:=s[i+1];

Оч. плохо.

--
Regards, LVT.

← →
Malik © (2006-04-02 20:20) [7]

>Leonid Troyanovsky © (02.04.06 19:45) [6]
>Оч. плохо.
Почему?

← →
Leonid Troyanovsky © (2006-04-02 20:26) [8]

> Malik © (02.04.06 20:20) [7]

> >Оч. плохо.
> Почему?

ch[s]

--
Regards, LVT.

← →
Malik © (2006-04-02 20:44) [9]

Всё понял это была грубешая опечатка, разумеется там в место "s" дожен быть "i", а я то думал, моя ожибка в неиспользовании методов придложенных самой Delphi, и написании собстенного кода. :)))

← →
Leonid Troyanovsky © (2006-04-02 20:56) [10]

> Malik © (02.04.06 20:44) [9]

> а я то думал, моя ожибка в неиспользовании
> методов придложенных самой Delphi, и написании

Ну, так это следствие. Не случайно ж [1]-[4].
Т.е., вероятность ошибки при собс-ручной реализации
возрастает на порядок.

--
Regards, LVT.

← →
Malik © (2006-04-02 21:15) [11]

у меня вопрос не по теме как вы (Leonid Troyanovsky) стали delphimaster"ом?

← →
Джо © (2006-04-02 21:17) [12]

> [11] Malik © (02.04.06 21:15)
> у меня вопрос не по теме как вы (Leonid Troyanovsky) стали
> delphimaster"ом?

Вагон пива, на этот счет двух мнений быть не может :0)

← →
Malik © (2006-04-02 21:21) [13]

Врядли (Джо)!!! :)))

← →
Leonid Troyanovsky © (2006-04-02 21:25) [14]

> Джо © (02.04.06 21:17) [12]

> Вагон пива, на этот счет двух мнений быть не может :0)

Да не, обычным образом - по блату.
Могу лишь предположить, что учли заслуги в fido, IMHO.
Т.е., коньяку я ИШ задолжал :)

--
Regards, LVT.

← →
Malik © (2006-04-02 21:30) [15]

А вообще есть приличный способ ну скажем на форумах много участвовать?

← →
Leonid Troyanovsky © (2006-04-02 21:39) [16]

> Malik © (02.04.06 21:30) [15]

> А вообще есть приличный способ ну скажем на форумах много
> участвовать?

Конечно. Тут, кроме мня, все приличные :)
Т.е., терпение и труд все перетрут.
Даже на моих глазах (год с небольшим) многие выросли в Мастеров.
Ну, а для тебя - все в твоих руках - начало пути, так сказать.

--
Regards, LVT.

← →
Malik © (2006-04-02 21:46) [17]

Спасибо!!!

За что?

> Anatoly Podgoretsky © (02.04.06 21:46) [18]

> Т.е., коньяку я ИШ задолжал :)

> А мне :-)

Анатолий - тебе не только коньяку, но текилы, кальвадоса, рома,
и др., бо вы с Толиком Тенцером - мои сэнсеи.

--
Regards, LVT.

Leonid Troyanovsky © (02.04.06 21:51) [20]
Анатолий - тебе не только коньяку, но текилы, кальвадоса, рома

Вот только не надо Анатолия спаивать, он еще другим пригодится :-))

> jack128 © (02.04.06 22:16) [21]

> Вот только не надо Анатолия спаивать, он еще другим пригодится
> :-))

Тады, сам за них все это выпьешь ;)
Бо, не токмо веселия ради, а и за здоровье для.

--
Regards, LVT.

Ну пошeл оффтоп своим ручьем!!!!! :)
Да, кстати, я пишу программу звонилку. У меня есть файлик RAS.PAS, так вот, есть ф-ция, с помощью которой можно создать подключение, и еще ф-ция, с помощью которой можно дозвониться до провайдера. Брал с Delphi World. Типичный вопрос: как этим пользоваться??? Допустим, в ф-ции можно указать номер телефона и Имя и пароль. Сохраняю типа введенные данные в INI, гружу, но в ф-ции дозвона сказано: Использовать в качестве номера (и всего остального) можно только array of char.

Вот ф-ция дозвона:
function DialProvider(connection: string): boolean; // connection - имя учетной записи var pars: TRasDialParams; hRas: ThrasConn; r: integer; begin hRas := 0; strpcopy(pars.szEntryName, connection); // имя учетной записи pars.szPhoneNumber := ""; // номеp телефона - по умолчанию pars.szcallbacknumber := ""; // callback нам не нужен pars.szUserName := ""; // логин - по умолчанию pars.szPassWord := ""; // паpоль - по умолчанию pars.szDomain := ""; // аналогично с домейном pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи r := rasdial(nil, nil, pars, 0, nil, hRas); // звоним if r <> 0 then begin // если что-то неполучилось, то rasHangUp(hRas); // сбpасываем соединение result := false; // ф-ция тепеpь веpнет false end else result := true; // а если все ок - то true. end;

А это неправильно?

ПРЕОБРАЗОВАТЬ String в array[0..128] of char !!!! Найти похожие ветки