Problemer med insert..

if SaveDialog1.Execute then
.. gør noget

Så udløser den ingen fejl ved klik på annuller..

hmm okay :D

var
  I: Integer;
begin
  for I := 0 to Form3.Memo1.Lines.Count-1 do
    Memo2.Lines.Insert(I+2, '<br>'+Form3.Memo1.Lines[I]+'</tr>');
end;

Og som esoulman skriver:

begin
  if SaveDialog1.Execute then
    ShowMessage('Weeeee!!!!! Der blev trykket på OK!!!');
end;

//hermandsen

lol.. jeg fik ikke indsat point :/

det virker bare ikke...

Hvad er det der ikke virker? Væ'r lidt præcis! :)

den indsætter teksten i bunden af memomen istedetfor linie 2!

Hmmmm.... Prøv:

var
  I: Integer;
begin
  for I := Form3.Memo1.Lines.Count-1 downto 0 do
    Memo2.Lines.Insert(2, '<br>'+Form3.Memo1.Lines[I]+'</tr>');
end;

okay

Virker det så?

hmm min kode er sådan..

Memo2.Lines.Insert(0, '<br><table width="35%" border="0">');
Memo2.Lines.Insert(1, '<tr><td bgcolor="'+ config.Edit4.Text +'">Article posted by: '+ config.Edit6.text +' at '+ label4.caption +'<br><br>');
for I := Form3.Memo1.Lines.Count-1 downto 0 do begin
Memo2.Lines.Insert(I+2, Form3.Memo1.Lines[I]);  end;
Memo2.Lines.Insert(3, '</tr></table><br>');
Memo2.Lines.Insert(4, '');

det virker stadig ikke :/

D'oh!

Brug Add i stedet! :)

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo2.Clear; 
  Memo2.Lines.Add('<br><table width="35%" border="0">');
  Memo2.Lines.Add('<tr><td bgcolor="'+ config.Edit4.Text +'">Article posted by: '+ config.Edit6.text +' at '+ label4.caption +'<br><br>');
  for I := 0 to Form3.Memo1.Lines.Count-1 do
    Memo2.Lines.Add(Form3.Memo1.Lines[I]);
  Memo2.Lines.Add('</tr></table><br>');
  Memo2.Lines.Add('');
end;

Jeg vil lige sige at du bør begynde på at give dine componenter logiske navne... Så som edtBGColor, edtPostedBy osv... Det bliver du glad for senere hen!!! :)

//hermandsen

anyways.. du forstår det ikke... jeg sletter også det hele nu..

ellers tak for hjælpen

Har du forresten slået WordWrap fra? Det så jeg nemlig at der blev problemer med da jeg prøvede at lave programmet i Delphi...