Здравствуйте.
Есть такая задача - на каждом чеке при расчете гостям должен появляться текст(анекдот например),и текст не всегда одинаковый,а рандомно менялся,список естественно заводим.
Как можно реализовать,кто что думает?
Здравствуйте.
Есть такая задача - на каждом чеке при расчете гостям должен появляться текст(анекдот например),и текст не всегда одинаковый,а рандомно менялся,список естественно заводим.
Как можно реализовать,кто что думает?
Что-то типа такого:
var SL1: TStringList;
str: String;
begin
try
SL1:= TStringList.Create;
SL1.LoadFromFile('d:\item_id.txt');
Memo66.Text := SL1.Strings[0];
finally
SL1.Free;
end ;
end;
наделать текстовиков с именами от 00.txt до 59.txt и вместо имени файла подставлять, секунды. ну или рэндом, да
damevanderjahr (03.12.2019)