Re: Програма розв'язування задач з фізики! Для учнів 7-го класу.
topprogrammer написав:
textBuffer : string; {змінна рівня форми} procedure AddTextLine(string text) begin textBuffer := textBuffer + text + '#13#10'; RichEdit1.SetTextBuf('{\rtf ' + textBuffer + '}' ); end; case ComboBox9.ItemIndex of 0 : begin if Pos('=',Edit1.Text)<>0 then begin case ComboBox15.ItemIndex of 4: AddTextLine('t = t1'); 5: AddTextLine('t = t2'); 6: AddTextLine('t = t3'); 7: AddTextLine('t = t4'); 8: AddTextLine('t = t5'); 9: AddTextLine('t = t6'); end; end else begin Variables[1,0] := StrToFloat(Edit1.Text); if CheckBox1.Checked then begin Bring_to_Power1; Variables[1,0] := Variables[1,0]*st1; end; case ComboBox15.ItemIndex of 1: begin AddTextLine('t = t*60'); Time_Minute(Variables[1,0]); end; 2: begin AddTextLine('t = t*3600'); Time_Hour(Variables[1,0]); end; end; end; {я додав 10^3 Ви можете змамінити на змінні} AddTextLine(ComboBox9.Text + ' ' + '= ' + '10'+'\super '+ '3' + '\nosupersub ' + ' ' + 'Секунд'); end;
Дякую величезне буду пробувати.
Виходить мені потрібно замінити RichEdit1.Lines.Add на AddTextLine
