문자열을 메모 상자 줄에 추가 한 다음 빈 줄을 추가하고 다음 줄에 새 입력을 추가하십시오 - delphi 2010 - help!

Question

어떤 메신저 뭘하려고 : 편집 상자에

입력 버튼 클릭에 메모 상자 라인에 기록 할 때 0 또는 -1 편집 상자

코드의 다음 행으로 이동을 입력 :

procedure TForm1.btnReadClick(Sender: TObject); 

var 
c, i, j : integer; 
ch2 : Char; 
txt1, txt2 : string; 

begin 
c := StrToInt(edt2.Text); //input  
ch2 := Converteer(c);  //input gets converted to Char 

if memC.Lines.Count = 0 then //start value when memo box empty 
begin 
    i := 0; 
    j := 0; 
    txt1 :=''; 
    txt2 :=''; 
end; 

if c = 0 then   //text naar memo  
begin 
i := i + 1;     // next line ?!?  these two seem not to work   
txt1 := '';     // empty string ?!?  these two seem not to work   
txt2 := memT.Lines[j] + ch2;  
end 

else if c = -1 then //same, it appears 'i' is maybe reset everytime button is pressed 

begin 
    i := i + 1; 
    j := j + 1; 
    txt1 := ''; 
    txt2 := ''; 
    end 

else if c >= 0 then // a t/m z 

begin 
txt1 := memC.Lines[i] + IntToStr(c);   
txt2 := memT.Lines[j] + ch2; 
end; 


memC.Lines[i] := txt1;   //write string to line , [i] should specify the wich line  
memT.Lines[j] := txt2;   // same 

end. 

내가 어디에서/어떻게 잘못되는지 알 수는 있지만, 누군가가 나를 도와 줄 수 있다면 정말 멋지다.

greetz 피터

Answer 1

메모 상자 memC가 비어 있지 않은 경우 i이 j는 txt1, txt2가 초기화되지 않은되는 변수. 0 인 경우 빈 값을 0으로 설정합니다. 다른 경우에는 어떤 값을 기대합니까? 이 함수에 로컬로 선언 했으므로이 값은 여러 버튼 클릭에 걸쳐 유지되지 않습니다. ...