Команды в консоли

[Volkogriz]

Доброе время суток!
Подскажите пожалуйста что то не могу сообразить(
Есть ини например:

[UserCoun]
Count=3
[User001]
Name=Вася
Path=Вася\Вася.dat
[User002]
Name=Не Вася
Path=Не Вася\Не Вася.dat
[User003]
Name=Ваще не Вася
Path=Ваще не Вася\Ваще не Вася.dat

И Вась может быть не определённое количество.

uses
  SysUtils,
  IniFiles,
  Classes,
  ShellAPI;

label Flag1;
var 
  Run: array[1..999] of string;
  DescriptionList: array[1..999] of string;
  ListFile: array[1..999] of string;
  Path: string;
  CountStr:String;
  ListNames:TStringList;
  Str,qq: string;
  i1,i2,i3:integer;

function Rus(mes: string):string;
var i: integer;
begin
for i:=1 to length(mes) do
case mes[i] of
'À'..'ï' : mes[i] := Chr(Ord(mes[i]) - 64);
'ð'..'ÿ' : mes[i] := Chr(Ord(mes[i]) - 16);
end;
rus := mes;
end;

procedure FormActivate;
var 
  i, n, k, Found: integer; 
  SearchRec: TSearchRec; 
  ini: TIniFile;
  Category, Name, Description, RunPath: string; // äóìàþ, ÿñíî èç 
íàçâàíèé
begin
  ListNames:=TStringList.Create;
  CountStr := '0';
  Path := ParamStr(0)+'User\';
Path := extractfilepath(ParamStr(0))+'User\';
  i := 1;
  Found := FindFirst(Path + 'UserNames.ini', faVolumeID, SearchRec);
  while Found = 0 do
  begin
    if FileExists(Path + SearchRec.Name) = true then
    begin
       ListFile[i] := Path + SearchRec.Name;
      Inc(i); 
    end;
    Found := FindNext(SearchRec); 
  end;
  FindClose(SearchRec);
  ListFile[i] := 'END';
  if ListFile[1] = 'END' then
    Write(Rus('Íà äèñêå ' + Path + ' íå íàéäåíî
 íè îäíîãî 
êîíôèãóðàöèîííîãî
ôàéëà.')); 
k := 1;
for i := 1 to 999 do
begin
  if ListFile[i] = 'END' then
    Break;
  ini := TIniFile.Create(ListFile[i]); 
  CountStr:= IntToStr(StrToInt(CountStr) + ini.ReadInteger('UserCoun','Count', 0));
    for n := 1 to ini.ReadInteger('UserCoun','Count', 0) do
  begin
    Category := ini.ReadString('User' + Format('%.3d', [n]), 'Name', 'áåç 
êàòåãîðèè'); 
    if ListNames.IndexOf(Category) = -1 then
    begin
      ListNames.Add(Category); 
    end;
  end;
end;
ini.Free;
Write(Rus('Â äàííûé ìîìåíò â 
ïðîãðàììå ' + CountStr + ' Ñòàòüè.')+#10#13);
end;

begin
FormActivate;
Flag1:
for i1:=0 to ListNames.Count-1 do
begin
writeln(inttostr(i1)+') '+ListNames.Strings[i1]);
end;
readln(qq);

как создать команды именно создать! изначально не известно сколько вась?
например:

if(qq='0')then
Str:=Вася\Вася.dat; 
if(qq='1')then 
Str:=Не Вася\Не Вася.dat; 
и тд и тп
goto Flag1;

Заранее благодарен!
С уважением,
Volkogriz!

[doktor255]

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

изначально не известно сколько вась?

Посчитай, станет известно. В чём проблема?

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

Заранее благодарен!

Это как? Не знаешь помогут ли а уже благодарен? Жестяк.

[Volkogriz]

Я имею введу изначально до загрузки ини количество не известно так что создавать надо в процессе загрузки программы.

Это как? Не знаешь помогут ли а уже благодарен? Жестяк.

Объясняю, это когда человек меня не проигнорировал чем то попытался помочь, даже если вошёл в тему и вышел.
Он проявил интерес,даже за такие понты как ваши)))

[doktor255]

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

так что создавать надо в процессе загрузки программы.

Попробуй создавать попугаев .
По русски объясни что тебе нужно, и что не получается.

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

даже если вошёл в тему и вышел.

Несусветная чушь. Людей нужно благодарить когда они что-то для тебя сделали, а не заранее неизвестно за что.

[Volkogriz]

Я зашёл, и вышел. Ты мне уже благодарен? Признайся, ты понял, что чушь сморозил. Просто не желаешь признавать.

очень!

procedure TForm1.ListBox2Click(Sender: TObject);
begin
Label1.Caption := Path[ListBox1.ItemIndex + 1];
end;
типо зтого

[doktor255]

Ну кликнул ты по ListBox. Ну получил Caption по индексу. Лично мне это вообще ни о чём не говорит. РУССКИМ языком задачу озвучь.

[Volkogriz]

Да только в консоли, вводя цифры от 0 до TStringList.Count показать строку индекса в TStringList как это осущиствить
if(qq=не известно какое число)then//Число не меньше 0 и не больше TStringList.Count
write(TStringList.Strings[StrToInt(qq)]);
Как то так.

[doktor255]

Перевёл.

if StrToInt(qq) in [0..TStringList.Count - 1] then
 write(TStringList.Strings[StrToInt(qq)]);

Дальше что?

[phomm]

doktor255, оператор in не работает с величинами выше числа, каковое есть в Вашем нике (ограничение типа set). Поэтому можно долго удивляться почему не работает программа при других наборах входных данных, нежели маленький тестовый.

Ну, а подсчитать кол-во секций в инифайле можно с помощью http://docwiki.embarcadero.com/Libra...e.ReadSections
Что-то типа

function IniSectionCount(FName: string): Integer;
var
  SL: TStringList;
  FIniFile: TMemIniFile;
begin
  Result := -1;
  FIniFile := TMemIniFile.Create(FName);
  SL := TStringList.Create;
  try
    FIniFile.ReadSections(SL);
    Result := SL.Count;
  finally
    SL.Free;
    FIniFile.Free;
  end;
end;

Циклом по секциям можно и создавать то, что там нужно, забирая данные из инишки, имена секций же брать из листа.

[doktor255]

При чём тут числа и ник? Я вообще не понимаю, о чём речь.