Массивы

[romka1608]

У меня есть Edit1 файл, там записано я "1,3,5,7,9".
Мне надо спарсить без запятых, и записать в txt файл.

var
f:Text;
  n: integer;
  mass: array[1..6] of string;
begin
AssignFile(f, 'D:\mytext.txt');
{$I-}
  Rewrite(f);
{$I+}
if ioresult <>0 then exit;


for n:=1 to 5 do
begin
mass[n] := Copy((Edit1.text, n, pos(',', Edit1.text)));
write(f,mass[n]+' ');
end;
closefile(f);

Оно не парсит цифри. Здесь ошибка в Copy. Как это правильно записать?

[Arigato]

Да все гораздо проще:

stringreplace(edit1.Text,',',' ',[rfReplaceAll])

[romka1608]

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

Да все гораздо проще:

stringreplace(edit1.Text,',',' ',[rfReplaceAll])

Мне нужно именно через массив

[Алексей_2012]

Вот, кода много, но работает :D

з.ы., потом увидел код stringreplase, и понял что ровня:DD

function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;
var
  SearchStr, Patt, NewStr: string;
  Offset: Integer;
begin
  if rfIgnoreCase in Flags then
  begin
    SearchStr := AnsiUpperCase(S);
    Patt := AnsiUpperCase(OldPattern);
  end else
  begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do
  begin
    Offset := AnsiPos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
  end;
end;

[Serge_Bliznykov]

romka1608, может быть, Вам такое нужно?

код парсинга строки в массив:

uses StrUtils;


type TMas = array[1..6] of string;


procedure ParseEditToArray(S1: string; var N: integer; var M: TMas);
var
  f: Text;
  i, k, k2: Integer;
  s: string;
begin
  n := 0;
  for i := Low(M) to High(M) do M[i] := '';

  AssignFile(f, 'D:\mytext.txt');
  {$I-}
    Rewrite(f);
  {$I+}
  if ioresult <> 0 then exit;
  s := Trim(S1);
  if Length(s) = 0 then begin
    ShowMessage('Edit пустой!'); 
    Exit;
  end;
  if Copy(s, Length(s), 1)<>',' then s := s + ',';
  i := Low(M)-1;
  k := 1;
  k2 := PosEx(',', s, k);
  while k2>0 do begin
    if i=High(M) then begin
        ShowMessage('В строке больше значений, чем размер массива'); 
        break
    end
    else begin
       inc(i);
       M[i] := Trim(Copy(s, k , k2-k));
       k := k2 + 1;
       k2 := PosEx(',', s, k);
    end;
  end;
  n := i;
  for i := Low(M) to n do
    write(f, M[i] + '  ');
  closefile(f);
end;

вызывать так:

var
  n: integer;
  mass: TMas;
  st  : string;

begin
  { st := Edit1.Text;  временно закомментируем}
      st := '  12,45,  777, 9 ';  {для наглядности присвоим строку прямо в коде}
  ParseEditToArray(st, n, mass);
end.

p.s. тоже самое можно и просто через TStringList через Delimiter или DelimitedText получить.

var
  list1 : TStringList;
  i : integer;
begin
 list1 := TStringList.Create;
 try
   list1.Delimiter := ',';
   list1.DelimitedText := Trim(Edit1.Text);

   for i := 0 to list1.Count - 1 do
        mass[i+1] := list1.Strings[i];
 finally
   list1.Free;
 end;
end;

[romka1608]

Спасибо всем!