14.09.2013, 18:40 | #1 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Строки в Lazarus
var x,x1:string; k,i,j:integer; begin k:=length(Edit1.Text); for i:=1 to k do begin if Edit1.Text[i]='.' then Edit2.Text:=IntToStr(i); end; for i:=IntToStr(i) to k do begin for j:=IntToStr(i) to k-1 do begin if Edit1.Text[j]>Edit1.Text[j+1] then begin Edit3.Text:=Edit1.Text[j]; Edit1.Text[j]:=Edit1.Text[j+1]; Edit1.Text[j+1]:= Edit3.Text; end; end; |
14.09.2013, 18:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме есть похожие топики, можете их посмотреть Помогите сделать задачи с кнопками в Lazarus Создать приложение "Lazarus" Сделать графический интерфейс, Lazarus |
15.09.2013, 04:51 | #2 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Если честно, то программу наверняка можно оптимизировать. Сорри, но леньки...
Код:
var x1:string; k,i,j,l,n:integer; x: char; begin k:=length(Edit1.Text); for i:=0 to k do begin if Edit1.Text[i]='.' then begin Edit2.Text:=IntToStr(i); n := i+1; end; end; x1 := Edit1.Text; for l:=n to k do begin for j:=n to k do begin if x1[l] < x1[j] then begin x := x1[l]; x1[l] := x1[j]; x1[j] := x; end; end; end; Edit1.text := x1; end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|