выборка данных из текстового файла

[uraura]

на форме несколько эдитов и батон
при нажатии на батон выбираем тхт с содержанием:

ГBЦ OAO 'PЖД' CПPABKA 2651 ПOHEДEЛЬHИK 8 HOЯБPЯ 2010 Г. 12:40

*********************************** ****************************
TEXHИЧECKИЙ П A C П O P T BAГOHA N 67017137
COБCTBEHHИK POCCИЯ ПOCTPOEH ФEBPAЛЬ 1985 Г.
ИЗГOTOBИTEЛЬ "УPAЛBAГOHЗABOД" OAO HПK
TИП BAГOHA 600 - 4-X OCH. C ЛЮKAMИ B ПOЛУ
MOДEЛЬ ДATA PEГИCTPAЦИИ -- Г...............и тд

требуется в эдиты растолкать значения выделенные красным все что выделено зеленым неизменно во всех тхт, остальное ненужный балласт

[mihali4]

Функции Pos и PosEx знакомы ?
С их помощью это сделать элементарно.
Если не приведете свои наработки, переедете к студентам

[uraura]

михалыч заставил таки самому решить вопрос

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
dannie: string;
begin
   OpenDialog1.Filter := 'Text files (*.txt)|*.txt';
   if OpenDialog1.Execute then
    begin
     AssignFile (f,OpenDialog1.FileName);
     Reset(f);
     while not EOF(f) do   
      begin
       Readln (f, dannie);
       if pos('ТЕХНИЧЕСКИЙ',dannie) = 4 then
        begin
         delete (dannie,1,40);
         edit1.text:= dannie;
        end;
      end;
    end;
end;

закрыли тему

[mihali4]

Молодец ! Приятно так вот "заставлять"