Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизПреобразование типов либо запись в файл Найти похожие ветки
← →
Norfolk (2003-10-29 15:10) [0]Подскажите пожалуйста как преобразовать данные из string (буквенный) в integer(возможно и другой), либо как записать в файл string-данные.
← →
icWasya (2003-10-29 15:21) [1]а поподробнее -
где строки берутся ?
что нужно получить в integer
зачем пишется в файл и как будет считываться
...........
← →
Skier (2003-10-29 15:25) [2]
> либо как записать в файл string-данные.
Примерно так :
var
StringLength : Integer;
begin
StringLength := Length(StringVar);
TStream.Write(StringLength, SizeOf(StringLength));
TStream.Write(StringVar [1], StringLength);
← →
Anatoly Podgoretsky (2003-10-29 15:39) [3]WriteLn(F,S)
← →
Norfolk (2003-10-29 16:51) [4]
> а поподробнее -
> где строки берутся ?
> что нужно получить в integer
> зачем пишется в файл и как будет считываться
Строки беруться из текстового поля (LabeledEdit1.Text). Именно этот текст и надо получить в integer. В файл пишется, естественно, для того чтобы сохранить эти данные.
Да, ещё чуть не забыл, как сделать так, чтобы в поле ввода вместо символов отображались звёздочки.
Просто мне необходимо сделать прогу для проверки пароля и регистрации новых пользователей
← →
ZEE (2003-10-29 17:00) [5]> Norfolk © (29.10.03 16:51) [4]
>
> Строки беруться из текстового поля (LabeledEdit1.Text).
> Именно этот текст и надо получить в integer. В файл пишется,
> естественно, для того чтобы сохранить эти данные.
StrToInt()
> Да, ещё чуть не забыл, как сделать так, чтобы в поле ввода
> вместо символов отображались звёздочки.
> Просто мне необходимо сделать прогу для проверки пароля
> и регистрации новых пользователей
TEdit.PasswordChar:="*";
← →
Norfolk (2003-10-29 17:16) [6]
> ZEE
> StrToInt()
Так можно преобразовать только символы чисел, насколько я знаю, а мне нужно именно буквенные, а за
> TEdit.PasswordChar:="*";
Спасибо.
← →
Anatoly Podgoretsky (2003-10-29 17:18) [7]Norfolk © (29.10.03 17:16) [6]
А вот это требует расшифровки
← →
icebeerg (2003-10-29 18:29) [8]-> Norfolk © (29.10.03 17:16) [6]
> Так можно преобразовать только символы чисел, насколько я знаю, а мне нужно именно буквенные
Буквенные в Integer не получиться.
Пиши в файл уж лучше, что либо типа:
For i:=1 to Length(LabeledEdit1.Text) do
Write(<File>,Ord(LabeledEdit1.Text[i]));
Пример не рабочий, но на мысль должно навести.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c