Перевод строки в матрицу

[Chepa]

хелп, народ!!!
есть строка типа '1, 2, 3, 4, 5, 6' ну и так далее, требуется записать значения из строки(которые отгорожены запятой) в одномерный массив. Очень на Вас надеюсь...

[AVer]

Запятой или запятой и пробелом (как в примере)?

Var I:Integer;
     A:Array[1..N] of String;
     S:String;
Begin
While Pos(',',S) <> 0 Do
Begin
Inc(I);
A[I]:=Copy(S,1,Pos(',',S)-1);
Delete(S,1,Pos(',',S));  // Это если только запятая, а если с пробелом, то
End;                     // Delete(S,1,Pos(',',S)+1);
Inc(I);
A[I]:=S;
End;

[Chepa]

тока запятой, спс щас буду пробовать))

[Chepa]

A[i]:=Copy(S,1,Pos(',',S)-1); в этой строчке ругается на несоответствие типов (( Аррей и Стринг((
таак с этим сам разобрался)))
Теперь другая ошибка: когда идйт второй круг, после прохода вышестоящей строчки выдаётся ошибка вида:
Проект хххх.ехе вызвал исключение класса EConvertError с сообщением "хх' is not a valid integer value'. Процесс остановлен.
Вот. Мож знаете что за фигня, а??

[Speeker]

Странно, у меня и первой ошибки не было, все работает...

[Albenous]

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

Теперь другая ошибка: когда идйт второй круг, после прохода вышестоящей строчки выдаётся ошибка вида:
Проект хххх.ехе вызвал исключение класса EConvertError с сообщением "хх' is not a valid integer value'. Процесс остановлен.
Вот. Мож знаете что за фигня, а??

EConvertError - ошибка перевода из одного формата в другой.
т.е. ты где-то переменной одного типа присваивешь переменную другого типа. Я еще не рабирался где, ща поищу.
З.Ы. пример EConvertError можшо показать присвоив

 
Edit1.text:=a // a:integer;

Совет: Воспользуйся обработкой исключений

 
try
..........
except

или

 
try
.........
finaly

[Speeker]

Пришли исходник

[Albenous]

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

Пришли исходник

Хотелось бы знать, это обращено ко мне или к автору темы?

[psyke]

procedure TForm1.Button1Click(Sender: TObject);
var
arr: array[0..254] of char;
i:byte;
S:String[255];
begin
S:=Edit1.Text;
for i:=0 to length(edit1.Text) do
delete(S,pos(',',s),1);
for i:=0 to length(S) do
arr[i]:=S[i];
Memo1.Lines.Add(arr);
end;

без исключений

Edit1.text:=a // a:integer;

а по моему, тебя на момент компиляции ещё пошлют

[AVer]

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

procedure TForm1.Button1Click(Sender: TObject);
var
arr: array[0..254] of char;
i:byte;
S:String[255];
begin
S:=Edit1.Text;
for i:=0 to length(edit1.Text) do
delete(S,pos(',',s),1);
for i:=0 to length(S) do
arr[i]:=S[i];
Memo1.Lines.Add(arr);
end;

без исключений

Твой вариант вудет разбивать строку не на слова, разделенные запятой, а на символы. Т.е. ...,13,... он разобьет на 1 и 3.

а по моему, тебя на момент компиляции ещё пошлют

Там показывался пример ошибки. Будь внимательней.