Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Anfängerfrage (Datenbanken) aus der Praxis

    Delphi
    by DeerHunter, 2. Nov 2004
  Also zuerst einmal musst du nicht für jedes Stichwort das komplette Memo erneut durchlaufen, es reicht also wenn du EINE for-Schleife hernimmst und da dann alle if-Abfragen reinpackst:
  
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
  if Pos('Ihre Artikelnummer:', Memo1.Lines) > 0 then
  Memo2.Lines.Add(Trim(Copy(Memo1.Lines, 20, Length(Memo1.Lines)-19)));
  if Pos('Artikel', Memo1.Lines) > 0...