Rave: Event-Editor --> Error #36 - CalcStack has 2 Items ?!

[Glühwürmchen]

Delphi-Quellcode:

function DataText22_OnGetText(Self: TRaveDataText; var Value: string);
var 
  sTempText : String;
  iTextLaenge : Integer;
  i : Integer;
begin
  iTextLaenge := length(Value);
  i := 1; 
  sTempText := '';

  while (i <= iTextLaenge) and (Value[i] <> '$') do begin  <-- Error  :wall: 
    sTempText := sTempText + Value[i];
    i := i + 1;
  end while;

  if sTempText = '' then
    Value := '';
  else begin
    i := 1;
    sTempText := '';

    while i <= iTextLaenge do begin
      if Value[i] = '$' then
        Value[i] := '';
      end if;
    end while;
  end if;
end OnGetText;

Was will der nur von mir?

[merlin17]

In Rave geht nur ein Ausdruck....

Zitat:

while (i <= iTextLaenge) and (Value[i] <> '$') do begin

Delphi-Quellcode:

while i <= iTextLaenge do 
    sTempText := sTempText ; 
    i := i + 1; 
  end;

ohne begin und ohne "end while"

Scripting Syntax guide

Delphi-Quellcode:

If statement

if condition then
statement(s);
elseif condition then
statement(s);
else
statement(s);
end;

For loop

for index := start to finish do
statement(s);
end;

for index := start downto finish do
statement(s);
end;

While loop

while condition do
statement(s);
end;

Repeat loop

repeat
statement(s);
until condition;
With statement
with object do
statement(s);
end;

Break, Continue and Exit function similar to Delphi.


thomas