uses
  RandomUtilsU;

program QuickExample;

uses
  System.SysUtils, RandomUtilsU;

begin
  // Generate a random person
  Writeln('Name: ' + GetRndFullName);
  Writeln('Email: ' + GetRndEMailAddress);
  Writeln('Country: ' + GetRndCountry);
  Writeln('Salary: $' + FloatToStr(GetRndInteger(30000, 120000)));
  
  ReadLn;
end.

Name: Marco Ferrari
Email: marco.ferrari@libero.it
Country: italy
Salary: $75000

// Italian data
WriteLn(GetRndFullName(lcIT));        // "Giuseppe Rossi"
WriteLn(GetRndEMailAddress(lcIT));    // "giuseppe.rossi@libero.it"
WriteLn(GetRndPhoneNumber(lcIT));     // "+39 345 678 9012"
WriteLn(GetRndAddress(lcIT));         // "Via Roma 123, 00100 Roma"

// US data
WriteLn(GetRndFullName(lcUS));        // "John Smith"
WriteLn(GetRndEMailAddress(lcUS));    // "john.smith@gmail.com"
WriteLn(GetRndPhoneNumber(lcUS));     // "+1 (555) 123-4567"
WriteLn(GetRndAddress(lcUS));         // "Main Street 456, 12345 New York"

// Company data
Company := GetRndCompanyName;         // "TechSolutions"
Industry := GetRndIndustry;           // "Information Technology"
Website := GetRndURL;                 // "https://www.techpro123.com"

// Employee data
JobTitle := GetRndJobTitle;           // "Software Developer"
Salary := GetRndSalary(25000, 150000); // Context-aware salary ranges
PhoneNumber := GetRndPhoneNumber(lcUS); // "+1 (555) 987-6543"

// Product information
ProductName := GetRndProductName;     // "UltraTech Pro"
Category := GetRndProductCategory;    // "Electronics" 
SKU := GetRndSKU;                     // "AB-1234-CD"
Price := GetRndPrice(9.99, 999.99);  // 299.99
Color := GetRndColor;                 // "Blue"
ColorHex := GetRndColorHex;           // "#0000FF"
Description := GetRndPhrase(10, 30);  // "Innovative solution for modern..."

// Network data
PublicIP := GetRndIPAddress(False);   // "203.45.67.89"
LocalIP := GetRndIPAddress(True);     // "192.168.1.100"
MacAddress := GetRndMacAddress;       // "AA:BB:CC:DD:EE:FF"
URL := GetRndURL;                     // "https://www.example123.com"

// Secure URLs
SecureURL := GetRndURL('myapi.com', True); // "https://myapi.com"

// ⚠️ WARNING: These are FAKE numbers for testing only!
CreditCard := GetRndCreditCardNumber('VISA');    // "4123-4567-8901-2345"
IBAN := GetRndIBAN('IT');                        // "IT85 X 1234 5678 123456789012"
BankAccount := GetRndBankAccount;                 // "1234-5678-9012-3456"

// Validate fake data
if IsValidFakeEmail('test@example.com') then
  WriteLn('Email format is valid');

var
  Person: TPerson;
begin
  Person := TPerson.Create;
  try
    Person.ID := 1;
    Person.Name := GetRndFirstName(lcIT);
    Person.Surname := GetRndLastName(lcIT);
    Person.EMail := GetRndEMailAddress(Person.Name, Person.Surname, lcIT);
    Person.JobTitle := GetRndJobTitle;
    Person.Salary := GetRndSalary(30000, 120000);
    Person.Address := GetRndAddress(lcIT);
    Person.PhoneNumber := GetRndPhoneNumber(lcIT);
    Person.DOB := GetRndDate(1970, 35); // Age between 35-70
    
    // Use the person object...
    ShowMessage(Format('%s %s works as %s', [
      Person.Name, Person.Surname, Person.JobTitle
    ]));
  finally
    Person.Free;
  end;
end;

{$IF Defined(GENERATE_DATASETS)}
var
  PeopleDataSet: TDataSet;
begin
  // Generate 100 Italian people
  PeopleDataSet := GetPeople(100, lcIT);
  try
    // Use with database components, grids, etc.
    DataSource1.DataSet := PeopleDataSet;
  finally
    PeopleDataSet.Free;
  end;
end;
{$ENDIF}

// Different phrase lengths
ShortTitle := GetRndPhrase(3, 8);      // "Innovative Tech Solutions."
Description := GetRndPhrase(15, 30);   // "Advanced system for modern..."
LongContent := GetRndPhrase(50, 100);  // Full paragraph

// Individual words
RandomWord := GetRndWord;              // "innovative"

// In your MVCFramework controller tests
procedure TTestUserController.TestCreateUser;
var
  UserData: TJSONObject;
  Response: TMVCResponse;
begin
  // Create realistic test data
  UserData := TJSONObject.Create;
  try
    UserData.AddPair('name', GetRndFirstName(lcUS));
    UserData.AddPair('surname', GetRndLastName(lcUS));
    UserData.AddPair('email', GetRndEMailAddress(lcUS));
    UserData.AddPair('phone', GetRndPhoneNumber(lcUS));
    UserData.AddPair('salary', TJSONNumber.Create(GetRndSalary(40000, 120000)));
    
    // Test your API endpoint
    Response := PostJSON('/api/users', UserData);
    Assert.AreEqual(201, Response.StatusCode);
  finally
    UserData.Free;
  end;
end;

var
  StartTime: TDateTime;
  I: Integer;
begin
  StartTime := Now;
  
  // Generate 10,000 names
  for I := 1 to 10000 do
    GetRndFullName(lcIT);
    
  WriteLn(Format('Generated 10,000 names in %.3f seconds', [
    (Now - StartTime) * 24 * 60 * 60
  ]));
  // Typical output: ~0.05 seconds
end;

// Validate generated data
Email := GetRndEMailAddress;
if IsValidFakeEmail(Email) then
  WriteLn('Email is properly formatted');

IBAN := GetRndIBAN('IT');
if IsValidFakeIBAN(IBAN) then
  WriteLn('IBAN format is correct');

Phone := GetRndPhoneNumber(lcIT);
if IsValidFakePhoneNumber(Phone, lcIT) then
  WriteLn('Phone number format is valid');