Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
7. Jun 2017
Aktueller Status: es scheint zu funktionieren ... wir testen das mal weiter und ich melde mich dann noch mal !
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
7. Jun 2017
Komisch - gibt es denn den Speicherbereich dann schon oder wird das "wild" irgendwohin geschrieben ??
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
7. Jun 2017
Ich werde jetzt drei Sachen umsetzen:
1) wo möglich const- und out-Parameter nutzen
2) Die eine Schleife von RowCount auf RowCount -1 setzen
3) Versuchen die TKunden. usw. rausnehmen.
Ich melde mich was dann passiert.
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
7. Jun 2017
So .. ganz viele Anworten auf einmal :-)
Nee ... nutze ich nicht.
Das sehe ich im debugger und wenn ich entsprechende Stop-Punkte setze. Das mache ich dann immer so:
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
7. Jun 2017
Blöde gefragt - demzufolge sollte man immer entweder const, out oder var in den Methodenkopf schreiben ? Und "schlichte"
procedure IchTuWas(XYZ: String);
gar nicht schreiben ?
Wie dem auch sei - das habe ich entsprechend umgesetzt und alle Aufrufe entsprechend gemacht.
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Sorry - wird es nicht - ich bin ja selber an der Lösung interessiert !! Aber manchmal fordert die bessere Hälfte auch ihr Recht - und das war heute unser Dorfgrieche :-D
Ich schreib morgen zu dem ganzen anderen Rest und teste mal die verschiedenen Tips aus !
Gruß und Gute Nacht
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Das sehe ich im Debugger
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Danke - leider noch nicht - wenn ich das so mache dann bekomme ich hier:
property Kundennummer read FKundennummer write SetKundennummer;
KundenUnit.pas(22): E2147 Eigenschaft 'Kundennummer' existiert nicht in Basisklasse :-(
Ich habe den Aufruf dann so geändert:
procedure TUKunden.FirstKundenSuchen(KundenNummer: String; var KName1, KName2, KStrasse, KLand, KPLZ, KOrt, KTelefax,...
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Nöö TThread nutze ich nicht .. so wie ich programmiere könnte man das wahrscheinlich auch (bis auf das Grid) in TurboPascal 1.0 oder MS-Basic schreiben - sprich erwarte da von mir eigentlich nichts in Richtung Intelligenz !!
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Sorry - schon was gefunden wo das beschrieben wird - ich versuche es mal !
Doch nicht :-( Kannst Du mir mal sagen wie ich das machen müsste ?
Danke !
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Moin,
Danke für die Tipps !!
Zu a) Sorry- kannst Du mir zeigen kurz beschreiben ich das mache ?? Leider kann ich damit nichts anfangen :-(
zu b) Ja - im Moment noch weil ich es so verstehe - eigentlich wollte ich ja wenn das hier läuft das ganze mal mit TTable umsetzen. Aber ich muss das hier erstmal zum laufen bekommen.
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Ganz normales Programm - und Kundennummer als Variable gibt es auch nur in dieser Routine. :-(
Hans
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Moin,
eigentlich ja nicht .... denn entweder er findet Daten (dann greift das Exit) oder er findet nicht und dann läuft er die Schleife komplett durch. Ich hab das ganze nochmal etwas verkürzt:
procedure IchBinKomisch(KundenNummer: String; var Rueckgabewert: String);
var
i: Integer;
begin
for i := 0 to UKunden.KundenSpeicherSG.RowCount -1 do
Forum: Object-Pascal / Delphi-Language
Delphi
by H.Bothur,
6. Jun 2017
Sorry - besser kann ich es bnicht beschreiben :-( Ich habe hier ein Stringgrid das einfach von oben nach unten durchgelaufen wird.
Wenn das Feld Kundennummer der übergebenen Kundennummer entspricht soll es, wenn zwei weitere Felder übereinstimmen die Daten ausgeben.
Im Prinzip sehr einfach ... aber plötzlich ist die KundenNummer nach der gesucht wird eine andere:
procedure...