Ĺadny brzuch
Mam zdefinowany plik ini:
[pyt1] pyt=2+2 odp=4 [pyt2] pyt=3+2 odp=5
Czy da się szybko wczytać tye dane do Delhi nie pisząc za dużo. Bo takich pytań mam 100. MOza by było tak:
IniFile:=TIniFile.Create('H:\config.ini'); pytania[1]:=IniFile.ReadString('pyt1','pyt',pytania[i]) ; odpowiedzi[i]:=IniFile.ReadString('pyt1','odp',odpowiedzi[i] ); IniFile.Free;
Ale czy nie da wczytac piszac tylko pare lini. Bo moim sposebem mój kod miałby ponad 200 lin.
użyj pętli która wczyta do tablicy odpowiednie dane
Użyj pętli. Nie znam za dobrze delphi, ale w C++ to byłoby coś takiego:
AnsiString pytania[200]; AnsiString odpowiedzi[200]; TIniFile* plikIni=new TIniFile(plik z konfiguracją); for(int i=0;i<100;i++) { pytania[i]=plikIni->ReadString("pyt" + IntToStr(i+1),"pyt",pytania[i]); odpowiedzi[i]=plikIni->ReadString("pyt" + IntToStr(i+1),"odp",odpowiedzi[i]); } delete plikIni;
W delphi jest jakoś podobnie, więc może to pomoże :)
// kurczę, wyprzedzili mnie :(
Użytkownik miszczu49 edytował ten post 24 listopad 2005, 17:04
Czyli mówiąc wprost:
var i: Integer; s: String; INI: TIniFile; begin INI := TIniFile.Create('h:\config.ini'); try //przyjmuję, że pytania są ponumerowane od 1 do 100 for i := 0 to 99 do begin s := 'pyt' + IntToStr(i + 1); pytania[i] := INI.ReadString(s, 'pyt', ''); odpowiedzi[i] := INI.ReadString(s, 'odp', ''); end; finally INI.Free; end; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
[pyt1] pyt=2+2 odp=4 [pyt2] pyt=3+2 odp=5
Czy da się szybko wczytać tye dane do Delhi nie pisząc za dużo. Bo takich pytań mam 100. MOza by było tak:
IniFile:=TIniFile.Create('H:\config.ini'); pytania[1]:=IniFile.ReadString('pyt1','pyt',pytania[i]) ; odpowiedzi[i]:=IniFile.ReadString('pyt1','odp',odpowiedzi[i] ); IniFile.Free;
Ale czy nie da wczytac piszac tylko pare lini. Bo moim sposebem mój kod miałby ponad 200 lin.
użyj pętli która wczyta do tablicy odpowiednie dane
Użyj pętli. Nie znam za dobrze delphi, ale w C++ to byłoby coś takiego:
AnsiString pytania[200]; AnsiString odpowiedzi[200]; TIniFile* plikIni=new TIniFile(plik z konfiguracją); for(int i=0;i<100;i++) { pytania[i]=plikIni->ReadString("pyt" + IntToStr(i+1),"pyt",pytania[i]); odpowiedzi[i]=plikIni->ReadString("pyt" + IntToStr(i+1),"odp",odpowiedzi[i]); } delete plikIni;
W delphi jest jakoś podobnie, więc może to pomoże :)
// kurczę, wyprzedzili mnie :(
Użytkownik miszczu49 edytował ten post 24 listopad 2005, 17:04
Czyli mówiąc wprost:
var i: Integer; s: String; INI: TIniFile; begin INI := TIniFile.Create('h:\config.ini'); try //przyjmuję, że pytania są ponumerowane od 1 do 100 for i := 0 to 99 do begin s := 'pyt' + IntToStr(i + 1); pytania[i] := INI.ReadString(s, 'pyt', ''); odpowiedzi[i] := INI.ReadString(s, 'odp', ''); end; finally INI.Free; end; end;