Forum: Programmieren allgemein
Delphi
by Amateurprofi,
6. Jun 2012
Hallo Lee,
ich hab das mal 1:1 kopiert.
Bei mir wurde das nicht kompiliert, weil in der Prozedur ReadRecord hinter New(hDreieck) das Semikolon fehlt.
Nach Hinzufügen des Semikolons lief das einwandfrei.
Ich habe die Daten aus #28 ins Clipboard kopiert und in Button2Click in list gestellt.
Nach Ausführen von Button2Click habe ich die Daten mit CopyDreiecke in Log.txt geschrieben....
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
6. Jun 2012
Hallo Lee,
Ich hab die Daten eingelesen (mit der Original-Routine aus #2) und dann in die Datei Log.txt geschrieben (mit der Original-Routine aus #5).
Die Daten stimmen 100 %ig überein.
Das läßt mich vermuten, dass durch eine deiner Vereinfachungen etwas durcheinander gebracht wurde.
Poste doch noch einmal die Typ-Deklarationen und die Routinen, mit denen du eingelesen und ausgegeben...
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
6. Jun 2012
Was bedeutet "stimmen nicht überein" ?
Zeige doch mal die Original-Daten und was dann in Log.txt ankam.
(Nicht alle 10000. Nur 2 bis 3 bitte)
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
6. Jun 2012
Hallo Lee,
tja, dann fehlt da vielleicht irgendwo ein Semikolon.
Ich habe das mal getestet mit nachstehender Prozedur.
Wundere dich nicht, dass die auch Test heißt. (Bei mir gibt es in jedem Projekt eine Prozedur "Test" (zum Testen, wie der Name sagt.)).
Zu
Meine Frage: es ist ganz klar, dass Dreiecke ein Zeiger auf ein TDreieck ist. Aber was ist denn hDreieck(Dreiecke)? Also...
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
5. Jun 2012
Hallo Lee,
zu for i:=0 to High(Dreiecke) do //wie ist entsprechende Code für TList???
Ich bin sicher, dass du das auch ohne Hilfe herausbekommst.
Schau doch mal, wie du das in deinem "FormDestroy" machst.
Zu with Dreiecke do begin //record,objetc or class type required
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
28. Mai 2012
Hallo Lee,
eigentlich verspüre ich keine große Lust den Korrektor zu spielen, wenn jemand, dem ich einen perfekt funktionierenden
Code lieferte, diesen vermeintlich "vereinfacht" und in nicht funktionierenden Code umwandelt.
Hab's mir trotzdem mal angeschaut, und ohne viel zu suchen tippe ich darauf dass das Programm in der Zeile while (Copy(s,1,Length(s2))<>s2) do inc(Line); festhängt....
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
24. Mai 2012
@Lee:
Zu (1) :
Wie kommst du auf die Beschränkung bei SetLength?
Ein dynamisches Array kannst du High(integer) lang machen.
Somit dürfte die einzige Beschränkung der verfügbare Speicherplatz sein.
Zu (2) :
So :
PROCEDURE CopyDreiecke(tofile:boolean);
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
21. Mai 2012
Versuch es mal hiermit.
Ich habe die von dir gezeigten daten ins Clipboard kopiert
und von dort in die StringList geschrieben.
Alle Daten wurden korrekt gelesen.
Du solltest das mit list.LoadFromFile machen.
type
TVektor = record
x, y, z: real;
end;
TDreieck = record