Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
11. Jun 2004
Nimm statt der for-Schleife die while-Schleife. Damit ersparst du dir das auslesen der Anzahl der Zeilen. Und es erhöht die Lesbarkeit des Textes, weil du dir wieder eine Variable sparst.
Statt
posRang:=pos('<',astr); // Kannst du dir auch sparen, da unabhängig von der Zeile
//immer das Gleiche rauskommt
Rang:=copy(astr,posRang+23,3);
Ist sowas...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
10. Jun 2004
Hier nochmal ein kleiner Code:
var: dat: textfile; i: integer= 0;
assignfile(dat,'C:\Dokumente und Einstellungen\Moon\Desktop\Woisserdenn\text.txt');
reset(dat);
while not EOF(dat) do // solange man nicht am 'End Of File' angekommen ist...
begin
inc(i);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
10. Jun 2004
Weisst du denn in welcher Zeile die Informationen stehen? Dann könntest du einfach den Text nach dem bis zum kopieren. Und dann das gleiche in der nächsten Zeile machen.
Wenn du's nicht weisst, könntest du alle Zeilen durchgehen und nach 'Rang' suchen. Wobei du hier sicherstellen musst, dass es diesen String nicht noch zufälligerweise woanders steht. Und dann in der nächsten Zeile wie oben...