Problem Statement

Idiomatically determine all the characters that can be used for symbols. The word symbols is meant things like names of variables, procedures (i.e., named fragments of programs, functions, subroutines, routines), statement labels, events or conditions, and in general, anything a computer programmer can choose to name, but not being restricted to this list. Identifiers might be another name for symbols. The method should find the characters regardless of the hardware architecture that is being used (ASCII, EBCDIC, or other). Display the set of all the characters that can be used for symbols which can be used (allowed) by the computer program. You may want to mention what hardware architecture is being used, and if applicable, the operating system. Note that most languages have additional restrictions on what characters can't be used for the first character of a variable or statement label, for instance. These type of restrictions needn't be addressed here (but can be mentioned).

Let's start with the solution:

procedure ShowValidSymbols(Memo: TMemo);
{Uses Delphi system tool "IsValidIndent" }
{To identify valid characters in indentifiers}
var I: integer;
var TS: string;
var Good,Bad: string;
begin
{Test first characters in a symbol}
Good:=''; Bad:='';
for I:=$21 to $7F do
	begin
	TS:=Char(I);
	if IsValidIdent(TS) then Good:=Good+TS
	else Bad:=Bad+TS;
	end;
Memo.Lines.Add('First Characters Allowed');
Memo.Lines.Add('Allowed:      '+Good);
Memo.Lines.Add('Not Allowed:  '+Bad);
{Test remaining characters in a symbol}
Good:=''; Bad:='';
for I:=$21 to $7F do
	begin
	TS:='A'+Char(I);
	if IsValidIdent(TS) then Good:=Good+TS[2]
	else Bad:=Bad+TS[2];
	end;
Memo.Lines.Add('');
Memo.Lines.Add('Remaining Characters Allowed');
Memo.Lines.Add('Allowed:      '+Good);
Memo.Lines.Add('Not Allowed:  '+Bad);
end;