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
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
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;
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;