Ruby in Delphicode übersetzen?

[bberger1234]

Kennt sich hier jemand zufällig in Ruby und in Delphi aus. Habe ein Programm von meinem Kumpel bekommen, was aber leider in Ruby Code geschrieben ist (ist nicht sehr lang, ca. halbe Seite Quelltext).
Nun muss ich das Programm aber in Delhi für meinen Lehrer schreiben (wird Klausurnote). Verstehe aber den Rubycode leider nicht.
Bitte um Hilfe.

[Phoenix]

WIE bitteschön sollen wir Dir denn auch nur ansatzweise helfen, wenn Du uns noch nichtmal sagst, WAS dieses Programm überhaupt tut, uns ggf. mal den Code zeigst damit wir Dir sagen können, was der Ruby-Code macht und Dir hinweise geben können, wie man sowas ähnlich in Delphi umsetzt.

Oder glaubst Du etwa, wir sind hier alle Wahrsager?

[Relicted]

[OT] Phoenix die Glaskugel und etwas Baldrian rüberreich [/OT]

[Klaus01]

Hallo,

wenn Du es selber versuchen möchtest:
Die Doku zu Ruby findest Du hier.
Sollte nicht so schwer sein.

Grüße
Klaus

[Phoenix]

Zitat von Relicted:

[OT] Phoenix die Glaskugel und etwas Baldrian rüberreich [/OT]

[OT]Phoenix guckt in die Glaskugel, zuckt mit den Flügelspitzen, krächzt etwas von wegen 'Boden' und 'Scherben' und schubbst die Kugel in Richtung Tischkante.[/OT]

[bberger1234]

Ich kann das Programm aus einem bestimmten Grund nicht online stellen. Geht nur per PN.
Allen die bereit sind mir zu helfen wäre ich echt ganz doll dankbar. Bin nämlich echt am verzweifeln.
lg Tina

[Klaus01]

Hallo,

noch eine Frage, kannst Du das Programm nicht von Grundauf neu erstellen?
Du weißt doch sicherlich was das Programm leisten soll.
Ein Seite Ruby Quelltext dürfte auch nicht viel mehr Quelltext in Delphi sein.

Oder kann Dein Kumpel nur Ruby und hat Deine Hausaufgabe in Ruby gelöst und Du suchst nun
eine Übersetzung?

Grüße
Klaus

[bberger1234]

Zitat von Klaus01:

Hallo,

noch eine Frage, kannst Du das Programm nicht von Grundauf neu erstellen?
Du weißt doch sicherlich was das Programm leisten soll.
Ein Seite Ruby Quelltext dürfte auch nicht viel mehr Quelltext in Delphi sein.

Oder kann Dein Kumpel nur Ruby und hat Deine Hausaufgabe in Ruby gelöst und Du suchst nun
eine Übersetzung?

Grüße
Klaus

Klar weiß ich was das Progamm machen muss. Nur leider bin ich in Delphi eine absolute Anfängerin. Und unser Lehrer besteht aber darauf es mit Delphi zu lösen.
lg Tina

[Phoenix]

Ich hab Dir schon per PN gesagt wie man da am besten vorgeht.
Also setz Dich erstmal an die Eingabe - und wenn Du da nicht weiterkommst, dann sag uns wo Du konkret hängst und was Dein Problem ist - und zeig her was Du bis dahin schon hast.

Wir sind nunmal kein Hausaufgabenforum. Erst recht nicht, wenn die Aufgabe als Klausur angerechnet wird.

[bberger1234]

Bin mittler Weile völlig am Ende. Es funktioniert einfach nicht...
Folgendes habe ich schon mal geschrieben:

Delphi-Quellcode:

nit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Button1: TButton;
    GroupBox4: TGroupBox;
    ListBox1: TListBox;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  farbfolge:array of integer;   //Arrays für die Farbfolge

implementation

{$R *.dfm}




 procedure TForm1.Button1Click(Sender: TObject);
 var zahlenfolge:integer;
     umwandlung: integer;
     umformung: integer

 begin
   umwandlung:=Edit1.text;
   umwandlung:= ord(eSecond);      // Umwandlung Buchstaben nach Zahlen
     begin
       zahlenfolge:=umwandlung;
       umformung:zahlenfolge('')+1    //bei der Umformung habe ich keine Idee
                                      // wie ich die erste Stelle nach hinten
                                      // bekomme

 end;



procedure TForm1.BitBtn3Click(Sender: TObject);

begin
    if not (edit1.text='')then
    begin
      listbox1.items.Add(edit1.text);
      setlength(farbfolge,length(farbfolge)+1);
      c:=c+1;
      farbfolge[c]:=strtoint(edit1.Text);
      edit1.Text:='';
    end;
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin                           // es können nur sechs Buchstaben eingegeben werden
  if not (Key in [w,s,r,g,n,b]) then Key:=#0;
end;

end.

Hoffe mal mir kann hier einer einen Tipp geben (ist wirklich dringend)
Ciao Tina.