| Re: Предлагаю публичный эксперимент! (Добавлено голосование!) ID:19882 ответ на 17820 |
Чт, 3 августа 2006 09:20 [#] |
|
|
<div style="margin:20px; margin-top:5px">
<div class="smallfont" style="margin-bottom:2px">Код:</div>
<pre class="alt2" dir="ltr" style="
margin: 0px;
padding: 4px;
border: 1px inset;
width: 640px;
height: 258px;
text-align: left;
overflow: auto"> List := TStringList.Create;
Total := 0;
for J := 0 to OpenDialog.Files.Count - 1 do
begin
List.LoadFromFile(OpenDialog.Files[J]);
for I := 0 to List.Count -1 do
begin
Number := StrToIntDef(Trim(List[i]), 100);
ifNumber > 36 then
Continue;
Total := Total + 1;
// Use Number Here
end;
end;
List.Free;</pre>
</div>
|
|
|