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

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

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

 

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

 

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

 

username.txt -> "username.txt" ?

 

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

 

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

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

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

 

" -> '

 

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

Code:

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

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

 

= (LEE_ROY сказал тоже самое просто покороче...).

- вопрос снимается.