From 1aac20f142142b0c6be0e57462bbaa11622e93f4 Mon Sep 17 00:00:00 2001
From: pioneerprizehun <94504735+pioneerprizehun@users.noreply.github.com>
Date: Tue, 26 Jul 2022 15:23:32 +0900
Subject: [PATCH] Update Unit_ch12_3.pas
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

예제프로젝트를 실행시 작동이 잘되지만
직접 작성하여 실행해보면 되지않습니다.

문제는

밑에서부터 위로6번째줄
```delphi
  for i := 0 to Length(s) do
```
 에있습니다.

문자열의 첫번째는 길이가 들어 있고, 이곳은 직접 읽고 쓸수 없습니다.

그래서 첫번째를 건너 띄고, 1 인덱스부터 for 문을 돌려야 합니다.

아래의 코드로 작성시 작동되오니 혹시 오류가생겨 막히는분들에게 참고가되는 글이였으면좋겠습니다.
```delphi
for i := 1 to Length(s) do
```
---
 .../\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"       | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
index 288f65f..05d6392 100644
--- "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
+++ "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas"
@@ -32,7 +32,7 @@ procedure TForm1.Button1Click(Sender: TObject);
 begin
   Cnt := 0;
   s := Edit1.Text;
-  for i := 0 to Length(s) do
+  for i := 1 to Length(s) do
     if s[i] =  '.' then
        Cnt := Cnt + 1;
    ShowMessage(InTtoStr(Cnt));