Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Как загрузить текст из текстового файла (Дельфи)? |
28.01.2008, 23:18
|
|
Участник форума
Регистрация: 13.01.2008
Сообщений: 125
Провел на форуме:
207131
Репутация:
0
|
|
Как загрузить текст из текстового файла (Дельфи)?
Есть у мну вот такой кусок кода на дельфи 7
SM.Username :=UserEd.Text;
Как зделать чтобы данные о SM.Username он грузил не с UserEd.Text а с username.txt который лежит в одной папке вместе с программой ?
Последний раз редактировалось begin_end; 29.01.2008 в 02:05..
Причина: Изменена тема (по причине неинформативности)
|
|
|
28.01.2008, 23:22
|
|
Новичок
Регистрация: 26.06.2007
Сообщений: 16
Провел на форуме:
236658
Репутация:
37
|
|
TStringList -> TStringList.LoadFromFile -> TStringList.Strings[123] ?????
|
|
|
|
28.01.2008, 23:26
|
|
Участник форума
Регистрация: 13.01.2008
Сообщений: 125
Провел на форуме:
207131
Репутация:
0
|
|
зделай сам плз строку, а то у м устрока вот такая:
SM.Username :=TStringList(username.txt);
и выдаёт вот такое
[Ошибка] Unit1.pas(55): Undeclared identifier: 'txt'
|
|
|
|
28.01.2008, 23:49
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
username.txt -> "username.txt" ?
|
|
|
|
28.01.2008, 23:56
|
|
Участник форума
Регистрация: 13.01.2008
Сообщений: 125
Провел на форуме:
207131
Репутация:
0
|
|
теперь выдаёт такую ошибку
[Ошибка] Unit1.pas(55): Invalid typecast
|
|
|
|
28.01.2008, 23:56
|
|
Новичок
Регистрация: 26.06.2007
Сообщений: 16
Провел на форуме:
236658
Репутация:
37
|
|
MyStringList = TStringList.Create();// Обязательно нужно создать объект
MyStringList.LoadFromFile("filename.txt");
Больше года не пишу на делфе, не знаю чо в голову стукнуло =\\
Вот здесь есть пример http://www.realcoding.net/article/view/1763
|
|
|
|
29.01.2008, 00:05
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
Сообщение от Slip
MyStringList = TStringList.Create();// Обязательно нужно создать объект
MyStringList.LoadFromFile("filename.txt");
Больше года не пишу на делфе, не знаю чо в голову стукнуло =\\
Вот здесь есть пример http://www.realcoding.net/article/view/1763
" -> '
|
|
|
|
29.01.2008, 08:10
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная. А что за операция "->" в делфи? Один из многих вариантов:
Код:
var
ts : TStringList;
begin;
ts := TStringList.Create;
ts.LoadFromFile ('filename.txt');
SM.Username := ts.Strings[0];
ts.Free
end;
нуль вы можете заменить на другой индекс, смотря где имя юзера в файле будет находиться.
И не забывайте освобождать объект, когда он уже не нужен, например, в конце программы. Можно еще и почти паскалевским методом идти через AssignFile - CloseFile |
|
|
|
29.01.2008, 09:20
|
|
Новичок
Регистрация: 27.01.2008
Сообщений: 13
Провел на форуме:
210819
Репутация:
26
|
|
Сообщение от krypt3r
Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная.
= (LEE_ROY сказал тоже самое просто покороче...).
Сообщение от LEE_ROY
" -> '
Сообщение от krypt3r
А что за операция "->" в делфи?
- вопрос снимается.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
