26.11.2009, 02:05
|
|
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами:
8725016
Репутация:
13
|
|
PHP код:
begin
if OpenDialog1.Execute then
begin
blocks:=TStringList.Create;
ini:=TIniFile.Create(OpenDialog1.FileName);
ini.ReadSections(blocks);
blocks.Sort;
if blocks.Find('3',i) then
begin
s:=ini.ReadString('3','0','Çíà÷åíèå 0 íå íàéäåíî');
end
else ListBox1.Items.Add('Block 3 not found');
begin
for i:=1 to length(s) do if copy(s,i,1)='0' then continue else break;
temp:=copy(s,i,length(s)-i+1);
ListBox1.Items.Add(temp);
end;
end;
end;
вот придумали но работать не хочет.
все. поправили
этот код выдает обрезок строки вида 01234567. теперь задача что бы выдавалось не по порядку а в такой последовательности- 67452301.
господа помогите. такую беду и в гугле не сьискать
Последний раз редактировалось mobilka; 26.11.2009 в 03:08..
|
|
|