Subject:
|
Need help on delphi?
|
Newsgroups:
|
lugnet.cad.dev
|
Date:
|
Fri, 20 Sep 2002 18:45:31 GMT
|
Viewed:
|
356 times
|
| |
|
|
Hello to all,
Thanks to all for helping me before
still need help I made this thing to sum position and add pluss -20 LDU
but I can make it work 100% something is wrong can someone check it and
tell me how to fix it?
XXXXXX DELPHI CODE XXXXXX
begin
Memo2.Clear;
itemtotext; // custom procedure is 100% ok error is not in it
// IntToStr( StrToInt(Edit1.Text) + 20) )
A:= StrToInt(Memo2.Lines.Strings[3]);
// Edit1.Text:=IntToStr( StrToInt(Edit1.Text) + -20);
B:=+ -20;
C:={//inttostr(b);} IntToStr( A + B );
All:=(Memo2.Lines.Strings[0] + ' ' + Memo2.Lines.Strings[1] +
' ' + Memo2.Lines.Strings[2] + ' ' + Memo2.Lines.Strings[4] +
' ' + C + ' ' + Memo2.Lines.Strings[5] +
' ' + Memo2.Lines.Strings[6] + ' ' + Memo2.Lines.Strings[7] +
' ' + Memo2.Lines.Strings[8] + ' ' + Memo2.Lines.Strings[9] +
' ' + Memo2.Lines.Strings[10] + ' ' + Memo2.Lines.Strings[11] +
' ' + Memo2.Lines.Strings[12] + ' ' + Memo2.Lines.Strings[13] +
' ' + Memo2.Lines.Strings[14] );
listbox1.Items.Strings[Form1.ListBox1.ItemIndex]:=All;
XXXXXX END OF CODE XXXXXX
|
|
Message has 1 Reply:
2 Messages in This Thread:
  
- Entire Thread on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
