Обработчик базы на паскале

[ОДИНОЧЕСТВО В СЕТИ]

блин ниче не получается(((

так ты и ничего еще путного не сделал

[dr.Chas]

А почему бы не реализовать так?
Считывать файл например в StringList так же построчно, и при считывании проверять на наличие русских символов если есть то пропускаем эту строку. А потом запись в тот же файл (в задании же не сказано создать новый файл) StringList.

[ОДИНОЧЕСТВО В СЕТИ]

А почему бы не реализовать так?

потому что это Паскаль!!
я предлагала использовать массив строк но наш ТС не хочет!

[Айдар]

да мне все-равно как реализовать, чем легче тем лутше, толька я с файлами не работал, болел а щас такую задачу не могу решить(((

[dr.Chas]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

потому что это Паскаль!!
я предлагала использовать массив строк но наш ТС не хочет!

Название темы не прочитал. Но в массиве строк надо будет указывать размер.

Ну а тот алгоритм переписать на паскаль можно так:

Цикл до конца файла.
Каждую строку проверям на наличие русских символов

if s[i] in (['А'..'Я' , 'а'..'я']) then

если есть то пропускаем эту строку. Если нет записываем в переменную

s2: string; {например}
s2:=s2+s+#13#10;

А потом записываем в тот файл результат из переменой s2

rewrite('файл');
writeln('файл',s2);

[Айдар]

А можете полностью код а ту я ваще в ауте.

[dr.Chas]

Сообщение от Айдар

А можете полностью код а ту я ваще в ауте.

Вообще, всё на этих двух страницах описано, чего не было, я написал в своём посте и привёл код. Но дело твоё не хочешь разбираться и пытаться сделать сам, держи:

program asdf;
var fail : text;
    s, s2: string;
    i : integer;
    flag : boolean;
begin
  Assign(Fail,'C:\txt.txt');
  Reset(fail);
  
  s2:='';     
  While not eof(fail) do
  begin
    Readln(Fail, s); 
    flag:=false;
    for i:=1 to length(s) do
      if s[i] in (['А'..'Я' , 'а'..'я']) then
      begin
        flag:=true;
        break;
      end;
    if not flag then
    begin
      s2:=s2+s+#13#10;
    end;
  end;

  rewrite(fail);  
  writeln(fail,s2);

  close(fail); 
end.

P.S.: пустые строки сам дописывай.

[Айдар]

да, вот это я в дебри залез

[Айдар]

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