Filterung eines Namens aus einer Textdatei

[s.h.a.r.k]

Grüß dich,

vorab eine Info: schau dir doch mal die [delphi]-bb-Tags an Damit schaut es einfach schöner aus und ist lesbar.

Delphi-Quellcode:

procedure TForm1.btnsuchenClick (Sender: TObject);
var
  F:textfile;
  i,zeilen,laenge:integer;
  s:string; //: <- Der : sollte ein ; sein.
  needle: String;
  tmpStr : String;
begin//; <- hier gehört ; weg
  laenge:=length (s);
  assignfile(F,'C:\tmp\Krankenhaus\Namen.txt');
  {$I-}
  Reset(f); //reaset(F); <- Hier hast einen Schreibfehler!
  {$I+}
  if IOResult <> 0 then exit; // Sicher, dass du hier Exit nutzen willst?
                              // Somit reagierst du evtl. nicht auf Fehler!

  try // Sicherheitshalber sollte hier ein try-finally-Block stehen

    // Suchtext von Edit einlesen
    needle := editSearch.Text;

    // Evtl. noch Lowercase setzen, sodass CaseInsensitive-Vergleich
    // gemacht werden kann
    if (not cbCaseSensitive.Checked) then
      needle := LowerCase(needle);

    while not eof (F) do
    begin
      readln (F, s);

      if (not cbCaseSensitive.Checked) then
        tmpStr := LowerCase(s)
      else
        tmpStr := s;
      
      if (Pos(needle, tmpStr) > 0) then
        lbxpatienten.items.add(s);
    end;
  finally
    closefile(f);
  end;
end;