Главная страница
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.009 c
8-1197569017
NaRuTo
2007-12-13 21:03
2009.09.27
Мерцания на TImage


1-1216893151
Mr.Frog
2008-07-24 13:52
2009.09.27
resize компнента run-time мышью


2-1248334687
Bruth
2009-07-23 11:38
2009.09.27
Как выделить макросом выделенный текст в ричЕдите


15-1248356404
Unknown user
2009-07-23 17:40
2009.09.27
Текстуры с альфа-каналом


15-1248467648
Германн
2009-07-25 00:34
2009.09.27
Успеют или не успеют к строку в этом году?