Tekstsøgning

Begynder alle nye afsnit med "fol" ?

Nej, ikke nødvendigvis;
men en linie er en linie.

Linier, der starter med: fol,
skal være overskrift til de eftefølgende
linier, hvis der er match (hits);

Det skal bare være "overskriften",
hvis der findes noget i de efter-
følgende linier. Så tror jeg ikke,
at jeg kan forklare mig ret bedre.
Sorry!

Søgning på: Rasmus skal i ovenstående eksempel vise flg.:

fol 142a
Rasmus Nielsen af Homå og Maren Sørensdatter af Ålsø (copuleret)

fol 142b
Rasmus Andersens barn af Ålsø - Anders
Rasmus Nielsen og Anne Christensdatter af Ålsø (copuleret)
Rasmus Andersens barn Anders af Ålsø (begravet)

Der skal lige tages højde for bredden af
denne tekstbox.

Har fået nogenlunde styr på det;
men tag lige et kig på koden.
www.afmsoftware/software/indexet.php
(8 KB)

Når der ikke et match, så skrives
fol ... alligevel.
Det er til at leve med; men jeg vil helst
undgå at se den linie.

Jeg kan ikke se din kode via det medøflgende link.
Jeg gætter på, at du skal ha' 2 strenge. En til overskriften og en til hver af de linier, du undersøger.
Kun hvis der er et hit, skal du udskrive overskriften og linien med hittet i.

http://www.afmsoftware.dk/software/indexet.php

Så mangler jeg lige navnet på kodefilen ;-)

det må være ft.zip - den fylder de nævnte 8 kb

Jeg har rettet lidt i din keypress procedure, bl.a. sat Key=#0, så du undgår en lyd hver gang du trykker på Return.
Proceduren ser nu således ud:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
  Fundet: Boolean;
  Overskrift: String;
begin
  IF Key = #13 THEN BEGIN
    Key:=#0;
    AssignFile(F,OD1.FileName);
    Reset(F);
    Memo1.Clear;
    Fundet := False;
    WHILE NOT EOF(F) DO BEGIN
      Lin := '';
      Readln(F,Lin);

      if pos('fol ',Lin) > 0 then begin
        //memo1.lines.add('');
        //memo1.lines.add(Lin);
        Overskrift:=Lin;
      end;

      if POS(Edit1.Text,Lin) > 0 then begin
        If overskrift<>'' then begin
          memo1.lines.add('');
          Memo1.Lines.Add(Overskrift);
          Overskrift:='';
        end;
        memo1.lines.add(Lin);
        Fundet := True;
      end;
    END; { WHILE NOT... }
    CloseFile(F);
    IF NOT Fundet THEN
      ShowMessage('Fandt ikke det søgte.');
  END; { IF Key... }
end;

Hej alle,
hvis jeg har været lidt for studshovedet,
så undskylder jeg meget.

nca: tester lige dit forslag og vender
tilbage, hvis det ikk' virker; men mon
ikke det gør. Årstallet skal selvfølgelig
også med. Det finder jeg ud af.

Hvis intet svar inden Jul, så GOD JUL!!!
jaweni

Hej
Har du fundet ud af det med årstallet?

Hej nca ( godt Nytår)
nej desværre!
For jeg har haft gæster næsten hele december,
så de skulle jo underholdes.