SRL Archive - OSR Help

Function FourNumToTBox(VarName: String; TehCoords: Array [0..3] of Integer): String;
Begin
  Result:=Writeln(VarName+'.X1:='+IntToStr(TehCoords[0])+';'+VarName+'.Y1:='+IntToStr(TehCoords[1])+';'+VarName+'.X2:='+IntToStr(TehCoords[2])+';'+VarName+'.Y2:='+IntToStr(TehCoords[3])+';');
End;

Whats wrong with it? I get type mismatch at the end of the long line.

procedure FourNumToTBox(VarName: String; TehCoords: Array [0..3] of Integer);
Begin
  Writeln(VarName+'.X1='+IntToStr(TehCoords[0])+';'+VarName+'.Y1='+IntToStr(TehCoords[1])+';'+VarName+'.X2='+IntToStr(TehCoords[2])+';'+VarName+'.Y2='+IntToStr(TehCoords[3]));
End;

What did you change?

I think he took out Result.

That is what he did! Thank you.

Sorry, didn't see this was posted in, yes the result was causing a Type Mismatch, I made your function a procedure and respectively took out Result.

-Boom