
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
|
|
|