sorry, ich gebe es auf.
Anhang 50101 bzw probiere es später von zu hause nochmal
Gerne, Edit: Das Ganze soll doch implementiert werden[in Delphi]
Die
Unit dafür habe ich schon geschrieben.. Inhalt brauch ich nurnoch und da fehlt mir das nötige Wissen.. Bzw. ich verstehe es nicht.
Delphi-Quellcode:
unit uTMorsecode;
interface
uses
uBinTree, graphics;
implementation
type
TMorsecode =
class(TBinTree)
public
constructor Create (canvas: TCanvas);
function code (text:
String):
String;
function decode(Text:
String):
String;
private
function charcode (c: char; node: TNode; code:
string):
string;
function chardecode (c: char; node: TNode; code:
string):
string;
end;
implementation
.
.
.
end.