Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.032 c
3-40970
Коля
2003-10-16 08:20
2003.11.13
Странности сетевого пути к GDB-файлу


14-41897
Думкин
2003-10-17 04:59
2003.11.13
С днем рождения! 17 октября.


14-42119
Карелин Артем
2003-10-22 14:59
2003.11.13
Как восстановить пароль к аське??


7-42169
Camedia
2003-08-30 22:18
2003.11.13
Нужно чтобы хук работал по всей системе....


3-40980
Kosta
2003-10-16 17:58
2003.11.13
Получение списка пользователей из MSSQL(2000)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский