парсинг memo

[begibeqa]

здравствуйте...
(сперва извиняюсь за мой плохой русский)

в memo получаю текст такого типа
YYYY,DD,MM
2014,1,3
2014,27,1
2014,23,1
можно ли после получения этого текста переделать его в таком виде?
MM/DD/YYYY
3/1/2014
1/27/2014
1/23/2014

[doktor255]

Легко.

Uses StrUtils;
memo1.text := AnsiReplaceStr(Memo1.Text, ',', '/');

[DpolenST]

пройтись по всем строкам этим методом

var
  dt : TStringList;            
  i    : Integer;
begin
  dt := TStringList.Create;
  dt.Delimiter := ',';        

// вставить в цикл, пройтись по всем строкам
  dt.DelimitedText := Memo1.Lines[0]; // 'YYYY,DD,MM';
  Memo1.Lines[0] := dt.Strings[2]+"/"+dt.Strings[1]+"/"+dt.Strings[0];   // 'MM/DD/YYYY'  


 dt.Free;  
end;

[kta87]

Можно регулярное выражение составить, а можно в циклах обойти сроки, в любом случае задача сводиться к тому что нужно хоть какие то азы самому выучить!

[FaTaL]

doktor255, не всё так просто, у него дата на выходе должна быть немного другая.

[eval]

DpolenST вы что смеетесь?

[begibeqa]

DpolenST выдает такую ошибку

List index out of bounds (2)

[DpolenST]

Сообщение от begibeqa

DpolenST выдает такую ошибку

List index out of bounds (2)

Проверьте исходные данные, думаю в какой-то строке не хватает разделителя ','. Можете сделать проверку по условию (dt.Count != 3) чтобы получить номер строки где возникает ошибка.

[begibeqa]

DpolenST справляться с первой строкой, а когда переходить на второй выдает ошибку

[DpolenST]

Сообщение от begibeqa

DpolenST справляться с первой строкой, а когда переходить на второй выдает ошибку

покажите код, и несколько строк из memo