Как загрузить текст из текстового файла (Дельфи)?

[Tapaceuka]

Есть у мну вот такой кусок кода на дельфи 7
SM.Username :=UserEd.Text;

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

[Slip]

TStringList -> TStringList.LoadFromFile -> TStringList.Strings[123] ?????

[Tapaceuka]

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

[KEZ]

username.txt -> "username.txt" ?

[Tapaceuka]

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

[Slip]

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

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

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

[LEE_ROY]

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

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

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

[krypt3r]

Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная. А что за операция "->" в делфи? Один из многих вариантов:

var
ts : TStringList;
begin;
ts := TStringList.Create;
ts.LoadFromFile ('filename.txt');
SM.Username := ts.Strings[0];
ts.Free
end;

нуль вы можете заменить на другой индекс, смотря где имя юзера в файле будет находиться.
И не забывайте освобождать объект, когда он уже не нужен, например, в конце программы. Можно еще и почти паскалевским методом идти через AssignFile - CloseFile

[noobyara]

Хы, по жизни в дельфях ограничителем строковых переменных являлся апостроф aka одинарная кавычка, а не двойная. = (LEE_ROY сказал тоже самое просто покороче...)." -> '
А что за операция "->" в делфи? - вопрос снимается.