Работа с txt файлом.

[Stilet]

s.insert нужно в цикл вставлять или нет??

Наверное нужно. Телепаты в отпуске.

он должен выглядеть так: 'номер строки' пробел 'всего строк'

А тут что за проблема? Номер строки получишь циклом (ты ведь все равно циклы использовать будешь) Через intToStr превратишь в строку, и вставляй ее используя insert.

[serega96]

так пока понятно, ок спасибо, будут ещё вопросы напишу

[Stilet]

Пиши. А пока вот тебе на десертус:

в каждую строку, начиная с 75 позиции вставляется «номер строки – количество строк».

for i:=75 to s.count-1 do
  s[i]:=IntToStr(i)+' '+IntToStr(s.count)+' '+s[i];

[serega96]

procedure TForm1.FormCreate(Sender: TObject);
begin
 s:=TStringList.Create;
 s.LoadFromFile('C:\Users\Серёжа\Desktop\InformatNEW');
 for i:=1 to s.count do
  s[i]:=s[i]+' '+IntToStr(i)+' '+IntToStr(s.count);


 s.SaveToFile('C:\Users\Серёжа\Desktop\InformatNEW');

 s.free;
end;

вот как это вроде бы должно быть.
единственное у меня не открывает txt файл, пишет недостаточно прав. Учётка стояла Администратор, поменял на обычного, ничего не изменилось. 7 винда

[Stilet]

И че такой файл реально существует?? о_О
Он никем не открыт?
Ты прогу запускай не от учетки а с правами админа - там в отличии от ХР есть разница, и в контекстном меню предусмотрен вариант админки

[serega96]

Сейчас я решил улучшить программу, чтобы можно было ввести файл вручную. Когда я пытался сделать это через OpenDialog у меня была ошибка. Я решил сделать просто через Edit.
Но мне выдаёт ошибку. Вот код процедуры:

procedure TForm1.Button1Click(Sender: TObject);
begin
l:=Floattostr(Edit1); - вот тут выдаёт ошибку!
s:=TStringList.Create;
s.LoadFromFile(l);
for i:=1 to s.count do
s[i]:=s[i]+' '+IntToStr(i)+' '+IntToStr(s.count);
s.saveToFile(l);
s.free;

end;

Ошибка: [Pascal Error] Unit1.pas(34): E2250 There is no overloaded version of 'FloatToStr' that can be called with these arguments

Помогите разобраться с этим пожалуйста или напишите 2 строчки как правильно сделать через OpenDialog.

[Serge_Bliznykov]

l:=Floattostr(Edit1); - вот тут выдаёт ошибку!

ну и правильно выдаёт.
Написана редкостная чепуха!!
я, например, даже предположить не могу, ЧТО Вы хотели сказать этой строчкой.



буквально у Вас написано следующее - взять элемент управлении текстового ввода (объект типа TEdit) и преобразовать его из вещественного числа в строку.

[3D Hunter]

Душа болит за Родину-Уродину нашу, коллеги!
Чтобы не флудить, по теме: нумерация в цикле с нуля.

for i:=0 to s.count-1 do

В противном случае получаете Out Index of Bounds.

[Stilet]

я, например, даже предположить не могу, ЧТО Вы хотели сказать этой строчкой.

Автор видимо решил что Floattostr расшифровывается как "File Loat To String".
Однако эта функция к загрузкам никакого отношения не имеет.

[HyperZen]

Сообщение от serega96

Сейчас я решил улучшить программу, чтобы можно было ввести файл вручную. Когда я пытался сделать это через OpenDialog у меня была ошибка. Я решил сделать просто через Edit.

Через TEdit вводить имя файла со всем путем - не совсем удобное решение. Почему ты забросил опыты с TOpenDialog? Ведь проще некуда. Скачай любую книгу по Делфи, там миллионы примеров работы с простейшими компонентами.
А так:

  // Показ диалог открытия файла
  if OpenDialog1.Execute
  then ShowMessage('File : '+OpenDialog1.FileName)  // имя файла в этой переменной
  else ShowMessage('Open file was cancelled');

Читай книги!

Далее:

l:=Floattostr(Edit1); - вот тут выдаёт ошибку!

Если уж решил использовать ЭТО, то:

l:=StrToFloat(Edit1.Text);

- преборазование текста в вещественное число (с плавающей точкой)
А лучше в таком случае использовать TryStrToFloat... Но об этом позже

Эх...

  if OpenDialog1.Execute then l:=OpenDialog1.FileName;
или:
if not OpenDialog1.Execute then Exit;  // чтобы вывалиться из процедуры и 
// не пытаться создавать TStringList и загружать в него данные из 
// "несостоявшегося" TOpenDialog
l:=OpenDialog1.FileName