Text umwandeln zu Morsecode :)

[Levium]

HeyHo :)
Also ich habe da so ein kleeeeines Problem ^-^..
Ich wollte ganz einfach in ein Textfeld einen Text eingeben und dann auf Knopfdruck den gleichen Text als Morsecode in ein Labelfeld zB haben :) ..
hab mir das ganz einfach vorgestellt :D ..
aber irwi komm ich einfach nicht weiter :(

..

Ich hatte einfach mit dem hier angefangen...

var s: string; i:integer;
begin
s:= edit1.Text;
for i:= 1 to length(s)do
if s[i]='0' then s[i]:='. . . . .'
dann wollte ich das natürlich irwi weiter machen mit else .. nur dann habe ich es halt irwi versucht aber es hat einfach nicht geklappt :< ..


Kann mir bitte jemand sagen, wie ich das nun hinkrieg :D ?!

Vielen Dank schon mal :P

[Frankfurtoder]

Hi,
was soll heißen, es hat nicht geklappt? Bisschen mehr Code wäre schon toll. Ansonsten würde ich ein Array mit den Codiereungen füllen und dann die Buchstaben in dem Edit durchgehen und mittels Array dann codieren. Anschließend im Label ausgeben. Das ganze würde theoretisch auch mit ifs oder case gehen.

PS: Bitte Den Code Taggen.

[taaktaak]

Was in aller Welt ist "irwi"?
Man könnte z.B. als Konstante ein Record-Array anlegen. Darin sind alle zu übersetzenden Zeichen und der korrespondierende Morsecode enthalten. In deiner Schleife holst du dann zu jedem Zeichen des Strings den passenden Code aus dem Array.

[Klaus01]

Versuche es einmal so:

Delphi-Quellcode:

var 
  s,out: string; i:integer; 
  morsezeichen: String;
begin 
  s:=edit1.text;
  out:='';  //Ausgabestring;
  for i:= 1 to length(s)do 
    begin
      case s[i] of
        '0' :  morsezeichen:='..---..';
        '1' : 
         ...
      end;
      out:= out+morsezeichen;
  end;
end;

Grüße
Klaus

[Uwe Raabe]

Zitat:

Zitat von taaktaak

Was in aller Welt ist "irwi"?

OT:
irwi = Inadeqaute Requesting Weird Individuum

[Valle]

Zitat:

Zitat von Uwe Raabe

Zitat:

Zitat von taaktaak

Was in aller Welt ist "irwi"?

OT:
irwi = Inadeqaute Requesting Weird Individuum

OT:
Ich hätte jetzt gedacht, er meint einfach "irgendwie" --> "i-wie" --> "irwe" :gruebel:

Mit freundlichen Grüßen,

Valle

[Uwe Raabe]

Zitat:

Zitat von Valle

OT:
Ich hätte jetzt gedacht, er meint einfach "irgendwie" --> "i-wie" --> "irwe" :gruebel:

Wenn er "irgendwie" gemeint hat, warum hat er es dann nicht so geschrieben? Genügt es nicht, wenn man schon die Problemstellung verstehen soll? Muss man sich denn auch noch so "C-like" ausdrücken? Die Zeiten der Akustikkoppler sind doch wohl vorbei, oder?

[Luckie]

Zitat:

Zitat von Klaus01

Versuche es einmal so:

Delphi-Quellcode:

var 
  s,out: string; i:integer; 
  morsezeichen: String;
begin 
  s:=edit1.text;
  out:='';  //Ausgabestring;
  for i:= 1 to length(s)do 
    begin
      case s[i] of
        '0' :  morsezeichen:='..---..';
        '1' : 
         ...
      end;
      out:= out+morsezeichen;
  end;
end;

Aber in die andere Richtung wird es dann interessant, weil die Morsezeichen unterschiedlich lang sind für die einzelnen Buchstaben.

[freak4fun]

Zitat:

Zitat von Luckie

Aber in die andere Richtung wird es dann interessant, weil die Morsezeichen unterschiedlich lang sind für die einzelnen Buchstaben.

Lässt man da dann nicht Pausen zwischen, also hier dann Leerzeichen? Daran kann man dann die einzelnen Codes erkennen. :D

[Luckie]

Kommt auf die Dartellung an.