Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
28. Mär 2007
werds mir mal durchlesen :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
28. Mär 2007
Öhm das mit dem High hab ich nicht so ganz verstanden, aber mit T funktioniert es :thumb:
Danke euch
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
28. Mär 2007
Hallo Leute!
Ich bins nochmal, bin grad am aufräumen des Quelltextes und habe schon unnötige bzw. doppelte Variablen entfernt und habe jetzt folgendes Problem bin schon kurz vorm verzweifeln!
procedure TForm1.Button2Click(Sender: TObject);
var Jahr, Monat, Tag: word;
begin
SetLength(T, Length(T) + 1);
DecodeDate(DateTimePicker1.Date, Jahr, Monat, Tag);
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
26. Mär 2007
ööhm ich glaube nicht aber ich weiß auch grad net wie und wo :angel2:
Hab dir mein Prog mal in den Anhang geladen, aber ohne die .EXE..
Und bitte nicht wundern, da sind 6 Units, aber ich benutze nur eine, wenn ich die anderen aber lösche gehts net mehr..
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
26. Mär 2007
Boah habs jetzt probiert und Ernüchterung folgte zugleich.. Ging wieder nicht :wall:
Hab aber auch rausgefunden warum:
for I := 0 to Length(T) - 1 do
Hab Length(T) testweise durch eine Zahl ersetzt und voila es funktioniert! Dann hab ich mir Length(T) mal ausgeben lassen und egal wie viele Einträge vorhanden sind er gibt immer nur "1" aus! Es nimmt halt kein Ende, aber ich glaube...
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
26. Mär 2007
Du warst schneller, werds gleich mal probieren!
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
26. Mär 2007
type
TDatum = record
T,M,J: word;
Zh,Zm,B,O,T1,T2,T3,T4,P,N: String;
end;
und
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
26. Mär 2007
Hallo!
Danke euch erstmal für eure Hilfe! Jetzt sieht es so aus:
procedure TForm1.saverec;
var
Stream: TStream;
I: integer;
Len: Longint;
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
25. Mär 2007
Bitte bräuchte wirklich noch nen Tipp, da das Programm ohne das sinnlos wäre :roll:
Will doch nur die Anzahl der Datensätze des Records in eine Variable stecken!
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
25. Mär 2007
Und wie lese ich die jetzt genau aus? Sorry, bin entweder zu blöd oder überhaupt nicht mehr aufnahmefähig heute :wall:
edit:
habe jetzt so gemacht:
Stream.Read(Len, SizeOf(Len));
SetLength(T, Len);
n:=Length(T);
Forum: Object-Pascal / Delphi-Language
Delphi
by grader,
25. Mär 2007
Guten Abend!
Habe ein Record, welches aus Strings besteht und dieses schreibe ich in eine .Dat Datei. Hier die write Prozedur:
procedure TForm1.saverec;
var
Stream: TStream;
I: integer;
Len: Longint;