парсинг memo

[begibeqa]

DpolenST

var
  dt : TStringList;
  i  : Integer;

begin
  dt := TStringList.Create;
  dt.Delimiter := ',';
  for i := 0 to mmo2.Lines.Count-1 do
  dt.DelimitedText := mmo2.Lines[0]; // 'YYYY,DD,MM';
  mmo2.Lines[0] := dt.Strings[2]+'/'+dt.Strings[1]+'/'+dt.Strings[0];   // 'MM/DD/YYYY'
end;

несколько строк из memo
2014,1,3
2014,27,1
2014,23,1

[DpolenST]

var
  dt : TStringList;
  i  : Integer;

begin
  dt := TStringList.Create;
  dt.Delimiter := ',';
  for i := 0 to mmo2.Lines.Count-1 do
  begin
   dt.DelimitedText := mmo2.Lines[i]; // 'YYYY,DD,MM';
   mmo2.Lines[i] := dt.Strings[2]+'/'+dt.Strings[1]+'/'+dt.Strings[0];   // 'MM/DD/YYYY'
 end;
 dt.Free;
end;

[doktor255]

Del Del Del

[BDA]

Ещё для ускорения обрамите for (чтобы memo не перерисовывался понапрасну):

mmo2.Lines.BeginUpdate;
for i := 0 to mmo2.Lines.Count-1 do
  begin
   dt.DelimitedText := mmo2.Lines[i]; // 'YYYY,DD,MM';
   mmo2.Lines[i] := dt.Strings[2]+'/'+dt.Strings[1]+'/'+dt.Strings[0];   // 'MM/DD/YYYY'
 end;
mmo2.Lines.EndUpdate;

[eval]

Изучайте TFormatSettings , а с этим кодом память убежит и не заметите как

[begibeqa]

спасибо вам большое за всьо