Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Как загрузить текст из текстового файла (Дельфи)? (https://forum.antichat.xyz/showthread.php?t=60212)

Tapaceuka 28.01.2008 23:18
Как загрузить текст из текстового файла (Дельфи)?
 
Есть у мну вот такой кусок кода на дельфи 7
SM.Username :=UserEd.Text;

Как зделать чтобы данные о SM.Username он грузил не с UserEd.Text а с username.txt который лежит в одной папке вместе с программой ?

Slip 28.01.2008 23:22
TStringList -> TStringList.LoadFromFile -> TStringList.Strings[123] ?????

Tapaceuka 28.01.2008 23:26
зделай сам плз строку, а то у м устрока вот такая:
SM.Username :=TStringList(username.txt);
и выдаёт вот такое
[Ошибка] Unit1.pas(55): Undeclared identifier: 'txt'

KEZ 28.01.2008 23:49
username.txt -> "username.txt" ?

Tapaceuka 28.01.2008 23:56
теперь выдаёт такую ошибку
[Ошибка] Unit1.pas(55): Invalid typecast

Slip 28.01.2008 23:56
MyStringList = TStringList.Create();// Обязательно нужно создать объект
MyStringList.LoadFromFile("filename.txt");

Больше года не пишу на делфе, не знаю чо в голову стукнуло =\\

Вот здесь есть пример http://www.realcoding.net/article/view/1763

LEE_ROY 29.01.2008 00:05
Цитата:
Сообщение от Slip
MyStringList = TStringList.Create();// Обязательно нужно создать объект
MyStringList.LoadFromFile("filename.txt");

Больше года не пишу на делфе, не знаю чо в голову стукнуло =\\

Вот здесь есть пример http://www.realcoding.net/article/view/1763
" -> '

krypt3r 29.01.2008 08:10
Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная. А что за операция "->" в делфи? Один из многих вариантов:
Код:
var
  ts : TStringList;
begin;
  ts := TStringList.Create;
  ts.LoadFromFile ('filename.txt');
  SM.Username := ts.Strings[0]; 
  ts.Free
end;
нуль вы можете заменить на другой индекс, смотря где имя юзера в файле будет находиться.
И не забывайте освобождать объект, когда он уже не нужен, например, в конце программы. Можно еще и почти паскалевским методом идти через AssignFile - CloseFile

noobyara 29.01.2008 09:20
Цитата:
Сообщение от krypt3r
Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная.
= (LEE_ROY сказал тоже самое просто покороче...).
Цитата:
Сообщение от LEE_ROY
" -> '
Цитата:
Сообщение от krypt3r
А что за операция "->" в делфи?
- вопрос снимается.


Время: 16:15