Losowanie wyrazów ze stringa

0

Witam,

Jak wylosować wyraz ze zmiennej string ?

Mam tekst np.
Witaj to jest testowy tekst

I chciabym żeby **wylosowało ** z tego jeden wyraz np. testowy

0

Randomize
Random
plus to, co już wcześniej napisał Patryk...

A dobrym zwyczajem jest najpierw SZUKAĆ, pytać dopiero jak się nie znajdzie!

0

Wywołujesz tylko raz w programie Randomize() np. OnCreate formy a samo losowanie to np. cos takiego:

var
  sl: TStringList;
  text: string;
begin
  sl:= TStringList.Create;
  try
  sl.CommaText:= 'Witaj to jest testowy tekst';
  text:= sl.Strings[Random(sl.Count)];
  ShowMessage(text);
  finally
  sl.Free;
  end;
end;
0
  • dodać spację na koniec
  • policzyć spacje
  • losować
  • wybierać
    pos, rand, copy
0

Chyba prościej by było tak:

function LosujWyraz(Wyraz: String): String;
var
  TS: TStringList;
begin
  TS := TStringList.Create;
  ExtractString([' '], [], PChar(Wyraz), TS); 
  Result := TS[Random(TS.Count)];
end;

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