Работа с строками

@ALeXDD · Регистрация: 30.11.2010

Author24 — интернет-сервис помощи студентам

доброе время суток форумчани.
нужна ваша помощ
нужно написать программу которая в каждой строке текстового файла удаляет все символы после 13того символа каждой строки.

Delphi

var
   dlina,stroki,s,s13:integer;
  f: TextFile;
begin
s13:=13;
AssignFile(F, 'j:\1.txt');
Reset(f);
while not eof(f) do
begin
  ReadLn(f, s);
  dlina:=length(s);
  stroki:=dlina-s13 ;
 
  delete(s,s13,stroki);
 
                      CloseFile(f);
                          end;
                      end;
end.[B][/B]

скорее всего не правильно,прошу поправить меня.
заранее спасибо=)

@virtuhay266 · 01.12.2010, 00:10

Delphi

var
   i,count:integer;
   s:array[0..255] of string[255];
  f: TextFile;
begin
AssignFile(F, 'e:\1.txt');
reset(f);
 count:=0;
 while not Eof(f) do
  begin
    ReadLn(f, s[count]);
    delete(s[count],13,length(s[count])-13);
    count:=count+1;
  end;
CloseFile(f);
 ReWrite(f);
 for I := 0 to count  do
    writeLn(f, s[i]);
    CloseFile(f);
end;

Первое, что пришло на ум. Могу написать с функциями winapi, с ними проще.
В основном ошибка в том, что ты строку не записываешь обратно в файл, и S - должен быть string.

@ALeXDD · 01.12.2010, 14:49 **[ТС]**

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

Delphi

var
   i,count:integer;
   s:array[0..255] of string[255];
  f: TextFile;
begin
AssignFile(F, 'e:\1.txt');
reset(f);
 count:=0;
 while not Eof(f) do
  begin
    ReadLn(f, s[count]);
    delete(s[count],13,length(s[count])-13);
    count:=count+1;
  end;
CloseFile(f);
 ReWrite(f);
 for I := 0 to count  do
    writeLn(f, s[i]);
    CloseFile(f);
end;

Первое, что пришло на ум. Могу написать с функциями winapi, с ними проще.
В основном ошибка в том, что ты строку не записываешь обратно в файл, и S - должен быть string.

да спасибо работает=)
но теперь другая проблема(
нужно работать с текстовыми файлами длинною в в районе 4 тысяч строк...
данный код не подходит(
прошу помощи

Добавлено через 1 час 30 минут

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

да спасибо работает=)
но теперь другая проблема(
нужно работать с текстовыми файлами длинною в в районе 4 тысяч строк...
данный код не подходит(
прошу помощи

ох)
вообще старый стал)

надо заменить
s:array[0..255]
на кол-во строк в тексте

	01.12.2010, 14:49