Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Текстовые файлы

Автор: GEK 22.5.2008, 08:29

В строках текстового файла F найти числа и скопировать их в др текст файл с указанием номера строки в которой обнаружено число!Накидайте текст проги пожалста! Спасибо! smile

Автор: ama_kid 22.5.2008, 12:41

Цитата(GEK @ 22.5.2008, 08:29

)

В строках текстового файла F найти числа

что считать числами?

Автор: GEK 22.5.2008, 12:44

цифры считать числами к примеру попалась 4 он скопировал её в др файл и указал в какой строке он её нашёл!

Автор: ama_kid 22.5.2008, 13:03

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 InputFile:TextFile;
 OutputFile:TextFile;
 s:string;
 NumStr:integer;
 i:integer;
begin
 AssignFile(InputFile,'Input.Txt');
 Reset(InputFile);
 AssignFile(OutputFile,'Output.Txt');
 ReWrite(OutputFile);
 NumStr:=0;
 while not Eof(InputFile) do
  begin
   Inc(NumStr);
   Readln(InputFile,s);
   for i:=1 to Length(s) do
    if ((Ord(s[i])-Ord('0'))>=0)and((Ord(s[i])-Ord('0'))<=9) then
     Writeln(OutputFile,'Number: ',s[i],'; Line:',NumStr);
  end;
 CloseFile(InputFile);
 CloseFile(OutputFile);
end;