Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.27;
Скачать: CL | DM;

Вниз

непонятная работа кода :(   Найти похожие ветки 

 
dreamse   (2008-07-21 09:46) [0]

Приветствую.

Написал функцию которая должна разбирать переданную строку и закидывать данные в TStringList


Function PivotSumList(str,razd:string;StrList:TStringList):boolean;
var
i:integer;
s:string;
begin
for i:=0 to Length(str) -1 do begin
 if str[i] <> razd then s:= s + str[i]
 else begin
  StrList.Add(s);
  s:="";
 end;
end;
if Trim(StrList.text) <> "" then result := true else result := false;
end;


Запускаю так :


procedure TForm1.Button1Click(Sender: TObject);
var
sList:TStringList;
begin
 sList := TStringList.Create;
 try
  if PivotSumList("111%222%444%232323%34gdsg%sgfg%sdg4%sdg","%",sList) then Showmessage(sList.Text);
 finally
  sList.free;
 end;
end;


Возвращает пустой TStringList хотя в функции в проверке :  if Trim(StrList.text)  есть готовый сформированный текст?

Подскажите где допущенна ошибка?


 
dreamse   (2008-07-21 09:52) [1]

разобрался.

формировалась вот такая вот строка :

#0"111"#$D#$A"222"#$D#$A"444"#$D#$A"232323"#$D#$A"34gdsg"#$D#$A"sgfg"#$D#$ A"sdg4"#$D#$A

Переделал функцию так:


Function PivotSumList(str,razd:string;StrList:TStringList):boolean;
var
i:integer;
s:string;
begin
StrList.Clear;
for i:=0 to Length(str) -1 do begin
 if str[i] <> razd then s:= s + Trim(str[i])
 else begin
  StrList.Add(s);
  s:="";
 end;
end;
if Trim(StrList.text) <> "" then result := true else result := false;
end;


Все работает, всем спасибо.

p.s пока блин в форум не напишешь не поймешь :)


 
brother ©   (2008-07-21 09:58) [2]

> Все работает, всем спасибо.

без проблемм ;)


 
Anatoly Podgoretsky ©   (2008-07-21 11:00) [3]

> dreamse  (21.07.2008 9:46:00)  [0]

Очень много ошибок, как в определение функции, так и в алгоритме.
Переписать все нафиг.



Страницы: 1 вся ветка

Текущий архив: 2009.09.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-1216545032
jurez
2008-07-20 13:10
2009.09.27
работа в BASIC с объектом из DELPHI DLL


15-1248550614
TStas
2009-07-25 23:36
2009.09.27
Как вставить у страниц номера в 2007 Ворде?


2-1247846262
datorn
2009-07-17 19:57
2009.09.27
Эффект падающих цифр


4-1218712679
dmitry_12_08_74
2008-08-14 15:17
2009.09.27
Подскажите, как проверить программно, нажата ли клавиша мыши


1-1216731919
TNT
2008-07-22 17:05
2009.09.27
Word + Delphi