fonksiyon tamamlanmadan geri dönüş

[cfyasar]

foksiyonun içinde bir döngüm var eğer döngünün şartları yerine gelirse fonksiyonun sonuna gelmeden değeri döndürmek istiyorum. nasil yapabiliri?
mesela

Kod: Tümünü seç

function (i:integer)integer;
var x:byte;
begin
  for x:=0 to 50 do
  begin
      //.....
      if i=50 then
      begin
           result:=10;
           break;
      end;
   end;
result:=5;
end; 

yapıyorum sonuç hep 5 geliyor. şart sağlansa bile sonuç 10 dönüyor arkasından 5 dönüyor;



edit: Lütfen kodlarınızı [ code] [/ code]tagı içine alınız. (naile)

[naile]

exit kullanabilirsiniz

[lazio]

Kod: Tümünü seç

function (i:integer)integer; 
var 
  x : byte; 
  status : Boolean;
begin 
  status := false;
  for x:=0 to 50 do 
  begin 
    //..... 
    if i=50 then 
    begin 
      status :=true;
      break; 
    end; 
  end; 
  if status then
    result:=10
  else
  result := 5;
end; 

[cfyasar]

bundan sonra code tag ı kullanmaya özen gösteririm. teşekkürler

[fduman]

Exit iyi bir çözüm. Ancak burada yapman gereken. result:=5; satırını function'un başlangıcına almak. Bu yeterli olacaktır.