простейший алгоритм а работает криво

[Lokos]

Здравствуйте.
Ума не приложу в чем проблема может просто заработался.
В переменную buf передается значение '1,2'
первое номер второе пароль
первое число должно записаться в NamberAg
второе в passAg
код

begin
   NomerAg:='';
   PassAg:='';
   flag:=false;
   for I := 1 to length(buf) do
      begin
         if flag=true then
           PassAg:=Passag+buf[i];
         if buf=',' then
           flag:=true;
         if flag=false then
            NomerAg:=NomerAg+buf[i];
      end;

результат все пишется в NamverAg

[Lokos]

вростил в чем проблема ошибка просто наитупейшая

begin
   NomerAg:='';
   PassAg:='';
   flag:=false;
   for I := 1 to length(buf) do
      begin
         if flag=true then
           PassAg:=Passag+buf[i];
         if buf[i]=',' then
           flag:=true;
         if flag=false then
            NomerAg:=NomerAg+buf[i];
      end;

[Serge_Bliznykov]

а так не проще?

  NomerAg  := Copy(Buf,1,Pos(',',Buf)-1);
  PassAg := Copy(Buf,Pos(',',Buf)+1, Length(Buf)-Pos(',',Buf));

[Lokos]

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

а так не проще?

  NomerAg  := Copy(Buf,1,Pos(',',Buf)-1);
  PassAg := Copy(Buf,Pos(',',Buf)+1, Length(Buf)-Pos(',',Buf));

первое значение может быть либо однозначным либо двухзначным, а второе до 25 символов вообще

[zumm]

первое значение может быть либо однозначным либо двухзначным, а второе до 25 символов вообще

Эм...И что? Их же все равно разделает ','.

[Grag]

А вот енто чё за ерунда???
if buf=',' then
Судя по коду buf - это массив.... Мож так нужно if buf[?]=',' then
да и вот это

if flag=true then

лишнее, лучше вот так нарисовать

if flag then
и 
if not flag then

[-Flasher-]

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

А вот енто чё за ерунда???
if buf=',' then

Во втором посте он это исправил.

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

лучше вот так нарисовать
if flag then
и
if not flag then

Разницы в скорости нет. Пиши как нравится.

[Serge_Bliznykov]

первое значение может быть либо однозначным либо двухзначным, а второе до 25 символов вообще

zumm абсолютно прав! Предложенный мной алгоритм разделяет строку на два элемента исключительно по первой запятой. И совсем не важно, один символ в номерАг или сто... тоже касается и второй переменной.

Вы бы просто попробовали мой код. Его совсем несложно вставить в Вашу программу (вместо Вашего) и проверить, как он работает!