Mengen definieren

[tictac]

hallo!
also ich hoffe, dass die Frage hierher gehört:
ich möchte eine Menge definieren, in der das große und kleine Alphabet, die 10 Ziffern, ß und _ vorhanden sind. Ich habe schon einiges dazu im Internet gelesen, aber das funktioniert bei mir alles irgendwie nicht...
ich hoffe, mir kann jemand erklären, wie ich das machen muss.
vielen dank schonmal!
tictac

[carli]

Code: Alles auswählen

[1, 2, 3]

Code: Alles auswählen

[1..4, 8..12]

Code: Alles auswählen

['a'..'z', 'A'..'Z']

Code: Alles auswählen

['a..z']-['f', 'g']

[tictac]

hallo carli,
aber wo schreib ich das hin?
muss eine variable damit jetzt in der prozedur "gefüllt" werden? aber was schreibe ich bei der variablendeklaration?
oder muss ich das ganze bei Konstanten hinschreiben?

tictac

[carli]

Code: Alles auswählen

var a: set of byte;
begin
  a:=[1..5];
  a+=[8]; // ergibt [1..5,8]
  a*=[4..10]; // nur noch [4,5,8]
end

Code: Alles auswählen

const abc: set of byte = ['a'..'z', 'A'..'Z'];
begin
  if 'f' in abc then showmessage('alles ist OK');
end

Code: Alles auswählen

var x: set of (a, b, c);
begin
  if (x*[b, c])<>[] then showmessage('x enthält b und c');
end

[tictac]

hallo carli,
danke! ich habe das jetzt mit der konstante gemacht, das gibt keine fehlermeldung mehr, allerdings nur solange, wie ich kein 'ß' mit reinschreibe. wenn ich das mache, dann kommt als fehler:
ordinal expression expected

warum geht das dann nicht?

vielen dank für die hilfe!

tictac

[theo]

Das geht nicht, weil du UTF-8 im Editor hast. Dabei ist ß wie öäü mit 2 Byte dargestellt.

Erklär doch mal, was du am Ende erreichen willst, so geht das leider nicht.

[mse]

@theo:
Ui, schon wieder ein Veteran!

Martin

[theo]

@theo:
Ui, schon wieder ein Veteran!

tictac hat einfach von Veteranen geschriebene Beispiele gelesen.

Sets sind nicht Unicode-tauglich, egal mit welcher Kodierung.

[theo]

@tictac: Wenn du bspw. wissen willst, wieviele "erlaubte Buchstaben" ein String enthält, kannst du das mit neuerem Compiler z.B. so lösen.
Hol dir die utf8tools hier: http://wiki.lazarus.freepascal.org/Theodp" onclick="window.open(this.href);return false;

Code: Alles auswählen

uses utf8scanner;
 
procedure TForm1.Button1Click(Sender: TObject);
var s:TUTF8Scanner;
  i,definedchars,undefinedchars:integer;
begin
 definedchars:=0;
 undefinedchars:=0;
 s:=TUTF8Scanner.Create('aböcdüefgöhß');
 for i:=1 to s.Length do
  case s.UTF8Chars[i] of
  'a'..'z','A'..'Z','ß','_': inc(definedchars);
 else
  inc(undefinedchars);
 end;
 s.free;
 Caption:=Format('[%d %d]',[definedchars,undefinedchars]);
end;

[creed steiger]

Ganz ehrlich,einfach ist aber anders

mal so in die Runde gefragt:
Wie lösen eigentlich anderes IDE´s/Sprachen das Problem mit den Kodierungen?

[theo]

Ganz ehrlich,einfach ist aber anders

Wieso? Der Kern ist ja nur:

Code: Alles auswählen

s:=TUTF8Scanner.Create('aböcdüefgöhß');
 for i:=1 to s.Length do 
   case s.UTF8Chars[i] of  'a'..'z','A'..'Z','ß','_': inc(definedchars);
 end;
 s.free;

Finde ich ziemlich einfach.

[creed steiger]

Für dich ist da klar einfach.Allerdings muss ein Anfänger erstmal auf
http://wiki.lazarus.freepascal.org/Theodp" onclick="window.open(this.href);return false;
kommen,offiziell ist das ja bei Lazarus nicht dabei?
Wenn du mal den Stecker ziehst ist es auch weg im SVN ist dein Code ja auch nicht.

[mse]

Wie lösen eigentlich anderes IDE´s/Sprachen das Problem mit den Kodierungen?

Sie arbeiten beispielsweise mit UnicodeString und sagen FPC dass der Quellcode in utf-8 codiert ist durch -Fcutf8 oder {$codepage utf8}. Falls du mehr über dieses Beispiel wissen willst frage bitte hier:
http://www.lazarusforum.de/viewforum.php?f=53

[carli]

@tictac: Wenn du bspw. wissen willst, wieviele "erlaubte Buchstaben" ein String enthält, kannst du das mit neuerem Compiler z.B. so lösen.
Hol dir die utf8tools hier: http://wiki.lazarus.freepascal.org/Theodp" onclick="window.open(this.href);return false;

Code: Alles auswählen

uses utf8scanner;
 
procedure TForm1.Button1Click(Sender: TObject);
var s:TUTF8Scanner;
  i,definedchars,undefinedchars:integer;
begin
 definedchars:=0;
 undefinedchars:=0;
 s:=TUTF8Scanner.Create('aböcdüefgöhß');
 for i:=1 to s.Length do
  case s.UTF8Chars[i] of
  'a'..'z','A'..'Z','ß','_': inc(definedchars);
 else
  inc(undefinedchars);
 end;
 s.free;
 Caption:=Format('[%d %d]',[definedchars,undefinedchars]);
end;

Nur zu doof, dass dieser Code quadratische Komplexität hat.

[theo]

Nur zu doof, dass dieser Code quadratische Komplexität hat.

Du hast immer einen flotten Spruch auf Lager, was?
Bin durchaus an besseren Vorschlägen interessiert.
Dein bisheriger Beitrag in diesem Thread funktioniert nur leider gar nicht.