строки и действия

[Serge_Bliznykov]

var ss : TStringList;
 Dest1, Dest2 : string;
for i:=0 to ss.Count-1 do begin
    Divide(ss.string[i];Dest1,Dest2);
     // что делаем с Dest1, Dest2
end;

Обратите внимание!! в TStringList нумерация строк идёт от нуля!

[DeDoK]

там помоему есть ошибка
ss.string[i-1];Dest
кажется надо так
ss.strings[i-1];Dest

[DeDoK]

на этот код

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
Dest1, Dest2 : string;
ss : TStringList;
i:integer;
begin
if FileEdit.Text='' then begin
ShowMessage('Не загружен список!!!');
exit;
end else begin
ss:=TStringList.Create;
ss.LoadFromFile(FileEdit.Text);
for i:=1 to ss.Count-1 do 
Divide(ss.string[i];Dest1,Dest2);
end;

выдает следующее
[Error] MainUnit.pas(97): Not enough actual parameters

[TwiX]

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

var ss : TStringList;
 Dest1, Dest2 : string;
for i:=0 to ss.Count-1 do begin
    Divide(ss.string[i];Dest1,Dest2);
     // что делаем с Dest1, Dest2
end;

Обратите внимание!! в TStringList нумерация строк идёт от нуля!

И Вы обратите внимание:

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

Поправка:
for i:=0 to ss.Count-1 do Divide(ss.string[i-1];Dest1,Dest2);

=)

[TwiX]

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

на этот код

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
Dest1, Dest2 : string;
ss : TStringList;
i:integer;
begin
if FileEdit.Text='' then begin
ShowMessage('Не загружен список!!!');
exit;
end else begin
ss:=TStringList.Create;
ss.LoadFromFile(FileEdit.Text);
for i:=1 to ss.Count-1 do 
Divide(ss.string[i];Dest1,Dest2);
end;

выдает следующее
[Error] MainUnit.pas(97): Not enough actual parameters

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
Dest1, Dest2 : string;
ss : TStringList;
i:integer;
begin
if FileEdit.Text='' then begin
ShowMessage('Не загружен список!!!');
exit;
end else begin
ss:=TStringList.Create;
ss.LoadFromFile(FileEdit.Text);
for i:=0 to ss.Count-1 do 
Divide(ss.strings[i];Dest1,Dest2);
end;

Если всё ругается, то проверьте Divide...

[Serge_Bliznykov]

DeDok
вот полностью РАБОЧИЙ код (пример):

procedure Divide(Sourse:string;var Dest1,Dest2:string);
begin
 Dest1:=Copy(Sourse,1,Pos(';',Sourse)-1);
 Delete(Sourse,1,Pos(';',Sourse));
 Dest2:=Sourse;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ss : TStringList;
 sVar1, sVar2 : string;
 i : integer;
begin
  ss := TStringList.Create;
  ss.Add('xxx;yyy');
  ss.Add('xxxxxxxxx;yyyy');
  ss.Add('x333333;y3');
  for i:=0 to ss.Count-1 do begin
    Divide(ss.Strings[i],sVar1,sVar2);
     // что делаем с sVar1, sVar2
     // например, показываем :)
     Application.MessageBox(
       Pchar('Переменная 1 = '+sVar1+chr(13)+
       'Переменная 2 = '+sVar2),
       'Отладка', MB_ICONINFORMATION or MB_OK);
  end;
  FreeAndNil(ss);
end;

___________________________________ _
TwiX, конечно обратил.
пока я писал, Вы уже запостить успели
разница в три минуты
мне стереть свой пост?

[Пепел Феникса]

а просто ss[i] никак?
Дедок, извини, просто список не заметил, а потом шарился в иных темах.
Твикс, вообще то разделитель параметров это ,
------------------------------------------
ну тут вроде доделали

[DeDoK]

Serge_Bliznykov, все круто) но один маленький вопрос) это вечный цикл получается. т.е дошли до конца и тут же возвращаемся на начало. как его остановить в конце?

[TwiX]

Там вроде нет циклов... Только for до ss.count-1, который не иизменяется

[DeDoK]

ой) сорри) тупанул. у меня
for i:=1 to ss.Count-1 do begin было написано