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
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:> logout....
0
Ups wcielo mi tagi, ale chyba nie problem je odnalezc no bo co to za puste apostrofy i pogrubinie tam hmm... --sys:> logout....