Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zeilen automatisch durch nummerieren (https://www.delphipraxis.net/72596-zeilen-automatisch-durch-nummerieren.html)

Shudder 3. Jul 2006 17:08


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:

http://www.homepage.de/download.php?id=100

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 http://www.homepage.de/download.php?id=150 selbst generiert!

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!

DGL-luke 3. Jul 2006 17:17

Re: Zeilen automatisch durch nummerieren
 
ok, nicht schwierig :)

Delphi-Quellcode:
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;
Bitte selber verstehen ;) Delphi-Referenz durchsuchenformat

Shudder 3. Jul 2006 17:26

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