Von Lua zu Pascal (Delphi)

[dachico212]

Guten Tag meine Freunde ,
ich habe hier wieder eine Frage ,ich habe neulich eine Aufgabe mit Delphi im rahmen meines Praktikums ,und zwar ich müsste ein Code in Lua-Programieresprache in Pascal-sprache umwandeln .
ps: meine kenntnisse in Delphi sind leider nicht so gut .ich benutze jetzt Delphi Embercado Rad Studio XE6 Version 20.0

Code:

smua.reset()
smua.source.func = smua.OUTPUT_DCAMPS
smua.sense = smua.SENSE_REMOTE
smua.measure.autozero = smua.AUTOZERO_ONCE
smua.source.rangev = 10 --Messbereich Spannung
smua.source.rangei = 1 --Messbereich Strom
smua.source.limiti = 1 --absolutes Limit Strom in A
smua.source.limitv = 2 --absolutes Limit Spannung in V
smua.measure.rangei = 1
smua.measure.rangev = 10
smua.source.output = smua.OUTPUT_ON
settime(0)
timer.reset()


for anzahl = 1, 2 do --zweiter Wert ist die Zyklenanzahl   
   smua.source.sink = smua.DISABLE
   smua.source.leveli = 0.0001 --Ladestrom in A   
   -- print("Zyklus ", anzahl)
   while smua.measure.v() <= 1.8 --Ladeschlussspannung in V
   do 
      time = timer.measure.t()
      print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)
      delay(1)
   end
   smua.source.sink = smua.ENABLE
   smua.source.leveli = -0.0001 --Entladestrom in A, muss negatives Vorzeichen haben
   while smua.measure.v() >= 0.0 do --Entladeschlussspannung in V
      time = timer.measure.t()
      print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)
      delay(1)
   end
end
smua.source.leveli=0

könnte mir velleicht jemand helfen... Vielen dank .

nur zur info es geht hier um Keithley 2651A .