Re: Leerzeilen in Tstringlist
Das geht auch ohne break :zwinker:
Delphi-Quellcode:
procedure StripLines(const Titel: string; const sLines: TStrings);
const sIgnore = 'Serien Termine' var i : integer; begin sResult.Add(Titel); i := 0; while (i < sLines.Count) and (sLines[i] <> '') and (sLines[i] <> sIgnore) do begin sResult.Add(sLines[i]); inc(i); end; end; |
Re: Leerzeilen in Tstringlist
ich bleib bei dem was klappt ^^
danke |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz