HAllo zusammen,
ich versuche aus einer ini datei oder auch einer txt datei werte einzulesen.
dies klappt auch bedingt, jedoch liest mir mein programm immer nur 6 zeichen ein und dann nix mehr.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| function tform1.inieinlesen():integer;
var i:integer;
var tempstringini,infostring:string;
var Dateiini: TextFile;
begin
try
Memo1.Lines.LoadFromFile('Constanten.ini');
for i := 0 to Memo1.lines.Count -1 do begin
if Memo1.lines[i] = '[var1]' then
iniminvb := strtoint(Memo1.lines[i +1]);
if Memo1.lines[i] = '[var2]' then
inizeitraum := strtoint(Memo1.lines[i +1]);
if Memo1.lines[i] = '[var3]' then
inianzumart := strtoint(Memo1.lines[i +1]);
if Memo1.lines[i] = '[var4]' then
inimaxanzumart := strtoint(Memo1.lines[i +1]);
if Memo1.Lines[i] = '[var5]' then
inialpha := strtoint(Memo1.lines[i +1]);
if Memo1.Lines[i] = '[var6]' then
tempstringini := Memo1.lines[i +1];
end;
iniassigning:=StrToBool(tempstringini);
iniabfrage:=true;
except |
wie schon erwähnt, mit dem folgenden code kann ich immer nur 6 zeiche einlesen dann ist schluss.
weis jemand rat?????
leider bräucht ich noch unbedingt vor donnerstag hilfe, da ich am freitag meine Diplomarbiet abgeben muss, und das ganze ist ein teil dieser arbeit....
vielen dank schonmal im voraus!!!
gruß
andy
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
