Показать сообщение отдельно
Старый 19.05.2004, 09:34     # 11
steelik
Member
 
Аватар для steelik
 
Регистрация: 30.09.2002
Сообщения: 320

steelik Путь к славе только начался
Пишу следующую, так сказать утилитку.
Загружаю текстовый файл, вот допустим его содержимое:

Код:
321948
953295
531295
359895
Необходимо, чтобы файл открывался, редактировался следующим образом:

Код:
example;321948;example;
example;953295;example;
example;531295;example;
example;359895;example;
Возможно, кто-то предложет более разумное решение:

Код:
var
st : TStringList;
..
st := TStringList.Create;
if OpenDialog1.Execute then
st.LoadFromFile(OpenDialog1.FileName);
astring := Format('%s%s%s',['General;',st.[i],';name;']);
ЗЫ: Как узнать, сколько строк находится в st ?
steelik вне форума