Bilderliste in html mit namen erstellen

[Frankfurter_Bub]

Hi leute,
wegen dem folgenden Delphi-Code verzweifle ich bald -.-
ich bekomme es nicht hin, das neben der Graphik der link dazu dargestellt wird.
wie es ist funktioniert es, also zumindest die Auflistung der Bilder, aber seht selbst.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Comctrls, Commctrl,ShellApi, Mask;

type
  TForm1 = class(TForm)
    Edit3: TEdit;
    edit1: TEdit;
    Generieren: TButton;
    Memo1: TMemo;
    urlEdit1: TEdit;
    Speichern: TButton;

    procedure GenerierenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeichernClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='%d.jpg'; edit3.Text:='20';
memo1.Text:='';
end;

procedure TForm1.GenerierenClick(Sender: TObject);
var
  i, iStop, iStart: Integer;
  a: string;
  begin
  a := edit1.text;
  iStart := 0;
  iStop := strtoint(edit3.text);
  UrlEdit1.Text := '<img src="' +a+ '"alt=""border="0" /
';
  for i := iStart to iStop do
   memo1.lines.Add(Format(UrlEdit1.Text, [i]));

end;
procedure TForm1.SpeichernClick(Sender: TObject);
var
  Datei: TextFile;
begin
 AssignFile(Datei, ExtractFilePath(Application.ExeName) + 'list.html');
  Rewrite(Datei);
  try
    WriteLn(Datei, memo1.text);
  finally
    CloseFile(Datei);
    if Shellscripten(Application.Handle,
                 'open',
                 PChar('D:\Dokumente und Einstellungen\Admin\Desktop\list\list.html'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten');
    memo1.Text:='';
  end;
end;
end.

[inherited]

1. Was geht denn nicht?
2. Das Speichern des Textes kannst du auch leichter haben:

Delphi-Quellcode:

Memo1.Lines.SaveToFile(filename);

[Brainstalker]

[quote]UrlEdit1.Text := '[img]' +a+ '[/img]':

Code:

UrlEdit1.Text := '[img]' +a+ '[/img]
';

EDIT:

Wenn du hinter das
den Link schreibst, dann steht er unter dem Bild, schreibst du den Link vor das
steht er rechts neben dem Bild.

[Frankfurter_Bub]

das mir die graphik neben der datei angezeigt wird,..

ups ">" vergessen... ^^

[DP-Maintenance]

Dieses Thema wurde von "Jelly" von "Internet / LAN / ASP.NET" nach "Object-Pascal / Delphi-Language" verschoben.
Hat wohl nix direkt mit Internetprogrammierung zu tun.