![]() |
Zeilen automatisch durch nummerieren
Hallo Community,
ich hab mal wieder ein kleines Problemchen. Mein Programm versteht sich als kleine Linkdatenbank, nun möchte ich aber gern das der User bei mehreren Links die aufgebaut sind wie dieser: ![]() die oftmals bis zu 50 Parts beinhaltenden Links nicht einzeln in das Programm eintragen muss sondern das er einfach den ersten Link angibt (also z.B. den "http://www.homepage.de/download.php?id=100" ) und er dann sagt es sind noch 49 weitere Parts sodass mein Programm dann alle Links bis zum ![]() Sorry aber ich konnte mich jetzt leider nicht besser ausdrücken :oops: Achja, fast vergessen: Das fertige Ergebnis sollte dann am besten in einem Memo o.ä. gespeichert werden :lol: . Vielen Dank! |
Re: Zeilen automatisch durch nummerieren
ok, nicht schwierig :)
Delphi-Quellcode:
Bitte selber verstehen ;)
function LinkGen(istart,iend: Integer; captions: TStrings; tpl: string): TStringList;
var i: Integer; begin if (pos(tpl,'%1s')<0) (pos(tpl,'%2d')<0) then raise EInvalidParameter.Create('template-string muss url- und caption- platzhalter enthalten!'); Result := TStringList.Create; for i := istart to iend do Result.Add(format(tpl,[captions[i],i])); end; ![]() |
Re: Zeilen automatisch durch nummerieren
OK, hab jetzt leider keine Möglichkeit dazu aber werd mich nachher mal ausgiebig damit beschäftigen und versuchen es zu verstehen :wink: !
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz