Читаю в цикле строки из TStringList, успешно их разбираю (проверено в отладчике),
и тут мне надо занести их части в конкретные строки созданных на форме объектов МЕМО.
Первая строка - читается, заносится...
Вторая строка - В одно МЕМО заносится, во второе - нет..
Третья строка и далее - разбираются нормально, но в МЕМО не идут... В чём может быть дело?
procedure ReadPredmets(Source: TStringList);
var
TEMP : String;
i : integer;
posit : integer;
begin
If Source.Count>0 Then
Begin
For i:=0 to Source.Count-1 do
Begin
TEMP:=Source.Strings[i];
posit:=Pos(';',TEMP);
pform2.Memo19.Lines[i]:=Copy(TEMP,1,posit-1);
delete(TEMP,1,posit);
posit:=Pos(';',TEMP);
pform2.Memo11.Lines[i]:=Copy(TEMP,1,posit-1);
delete(TEMP,1,posit);
posit:=Pos('=',TEMP);
if posit > 0 Then pform2.Memo12.Lines[i]:='OK';
End;
End;
end;
Никаких объявлений размеров МЕМО предварительно не делал...
Ситуация с заносом первой строки и половины второй - ставит меня в тупик...
Я понимаю, что если первая строка правильно зашла, то код работает. Но вторая не заходит...
Вот такая беда... Помогите, кто-нибудь?
P.S. FAQ обчитался.... нетути...
