Jak to zrobić(bardzo proste)?

0

Witam!
Jak zrobić taki program, który wstawia losowo do tekstu 'htmlowskie' znaczniki pogrubienie, zeby efekt wklejenia do strony html dał taki efekt:
Przykład
Podobny program o jaki mi chodzi jest na stronie www.delphi.spec.pl w dziale "Programy".
Pozdrawiam i licę na szybką odpowiedź! {hello}

0

Daj memo, butna i edita, a pod butona kod

procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
n,r: Integer;
begin
S:=Edit1.Text;
Randomize;
for n:=1 to Length(S) do
begin
r:=Random(100)+1;
if r mod 2=0 then
begin
Memo1.Lines.Text:=Memo1.Lines.Text++S[n]+;
end else begin
Memo1.Lines.Text:=Memo1.Lines.Text+S[n];
end;
end;

zastosowalem tutaj losowanie od 1..100 i sprawdzanie parzystsoci wyniku daje chyba lepszy wynik niz losowanie 0..1 i 0 z boldem a 1 bez bolda :)--sys:&gt logout....

0

Ups wcielo mi tagi, ale chyba nie problem je odnalezc no bo co to za puste apostrofy i pogrubinie tam hmm... --sys:&gt logout....

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0