---
title: "Konstigt problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/86439-konstigt-problem"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Alpha II"
published: "2003-09-19T13:31:48.000Z"
updated: "2003-09-27T10:33:45.000Z"
replies: 2
views: 244
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/86439-konstigt-problem"
---

# Konstigt problem

## #1 — Alpha II, 2003-09-19T13:31Z

Förstår inte varför men om jag tar bort raden med showmessage() så funkar inte denna funktionen, svaret blir då helt fel. Hur kan det komma sig när den raden inte gör någonting?

```
function OctStrToInt(const s : string) : integer;
var
  n, i, k : integer;
begin

  for i := 1 to Length(s) do
  begin
    showmessage(Copy(S,i,1) + ' ' + IntToStr(StrToInt(Copy(S,i,1))));  // <------- DENNA

    n := StrToInt(Copy(S,i,1));

    if((Ord(s[i])>=Ord('0')) and (Ord(s[i])<=Ord('7'))) then
    begin
      k := k + n * round( Power(8,Length(s)-i) );
    end
    else begin
      Result := 0;
      exit;
    end;

  end;

  Result := k;

end;
```

Permalänk: https://www.webforum.nu/p/86439

## #2 — Alpha II, 2003-09-19T13:45Z

Jag löste det på ett lite annorlunda sätt men förklara gärna hur det kunde spela någon roll beroende på om jag hade showmessage koden där. :OO

Permalänk: https://www.webforum.nu/p/1162696

## #3 — kung_bj, 2003-09-27T10:33Z

förklara gärna hur du löste det också!!

Permalänk: https://www.webforum.nu/p/1170032

---

Tråden på webben: https://www.webforum.nu/amne/programmering/86439-konstigt-problem