نوشته شده توسط
hassan p.b
سلام
فایل را روی دلفی در هنگام ران قسمت for...do ایراد می گیرد
با تشکر از همراهیتان
چون تو برنامه از حلقه for ... in استفاده شده و این نوع حلقه از دلفی 2009 به بعد اضافه شده ، اگر از نسخه قدیمی تر از 2009 استفاده میکنید کد رو به صورت زیر تغییر بدید :
var
StrList: TStringList;
Temp, TempX, TempY: String;
I: Integer;
begin
if OpenDialog1.Execute then
begin
StrList:= TStringList.Create;
try
StrList.LoadFromFile(OpenDialog1.FileName);
for I := 0 to StrList.Count - 1 do
begin
Temp:= StrList.Strings[i];
TempX:= Copy(Temp, Pos('x', Temp)+2, Pos('y', Temp)-3);
TempY:= Copy(Temp, Pos('y', Temp)+2, Length(Temp));
ListBox1.Items.Add(TempX);
ListBox2.Items.Add(TempY);
end;
finally
StrList.Free;
end;
end;
end;