Hallo suche Hilfe auf Stundenbasis in Ludwigsburg Delphi XE5

[Klaus01]

wie ist denn z.B. "B" definiert oder der Type: STR255 (Array[0..254] of char?)

Grüße
Klaus

[Ceruso]

Delphi-Quellcode:

LIBRARY Flr_Ein;

USES SysUtils,Classes;


TYPE
  TWert            = RECORD
                       Gueltig : BOOLEAN;
                       Wert    : DOUBLE;
                     END;
CONST
  MaxEHT           = 7200;
  MaxEHTSP         = 7200;
TYPE
  [B]STR255 [/B]        =  Ansistring;{STRING[255];}
  PEHTSpalte       = ^TEHTSpalte;
  TEHTSpalte       = ARRAY[0..MaxEHTSP] OF DOUBLE;
TYPE
  TFlrKopf         = RECORD
                       Bez       : STR255;    {Bezeichnung}
                       EHT       : STR255;    {Dateiname EHT}
                       Bea       : STR255;    {Bearbeiter}
                       Bem       : STR255;    {Bemerkung}
                       Dat       : STR255;    {Datum/Uhrzeit}
                       DFl       : BOOLEAN;   {Flag Stoessel gelesen}
                       DRS       : TWert;     {Durchmesser Rollenstoessel}
                       Wkl       : TWert;     {Bezugswinkel}
                       Spg       : TWert;     {1=Gespiegelt}
                       Fkt       : TWert;     {Bewertungsfaktor}
                       Inch      : BOOLEAN;   {Flag fuer Masssystem}
                       Norm      : BOOLEAN;   {Flag, Daten normal auf T-Bahn}
                     END;
TYPE
  TExtFlrDat       = ARRAY[0..255+4] OF BYTE;

.
.
.
.FUNCTION HoleZeile (VAR Dat   : TDatei;
                    VAR Zeile : TZeile) : BOOLEAN;
CONST
  MaxZL            = 500;
VAR
 [B] B [/B]               : BYTE;
  CR,LF            : BOOLEAN;
  I,J,E            : INTEGER;
  HStr             : STR255;

[hoika]

Hallo ,
wir brauchen die Definition aller Datentypen,
ST255, TFlrxxxxx

Dort muss alles von String auf AnsiString, von Char auf AnsiChar geändert werden.

[OlafSt]

Abgesehen vom offensichtlichen problem mit den Shortstrings, die ja zum Unicode-Problem führen sind da noch mehr Fallstricke vergraben, die man im hier geposteten Code sieht. Da wäre vielleicht mal ein Refactoring angesagt - das ist auch kein Hexenwerk und sicher rasch erledigt.

[dummzeuch]

Könnte man diese Diskussion vielleicht in eine andere Kategorie verschieben? Ursprünglich ging es ja um ein Job-Angebot.

[himitsu]

UnicodeProblem:
Ja, erstmal ist "String" (nicht der Typ "String[123]") seit Delphi 2009 ein Alias für einen UnicodeString und vorher war er es für AnsiString.
Aber der Typ "String[123]" ist und war immer ANSI.



Was bedeutet Ansistring;{STRING[255];} ?

Es was mal String[255] und ist jetzt AnsiString?

String/AnsiString/UnicodeString sind "LongStrings", was "intern" ein Zeiger auf einen String ist,
also im Record oder den Parametern mit diesem Typen ist immer nur ein "Pointer" drin.

Beim Typen String[123] ist es aber ein "ShortString", was "intern" ein Record/StatischesArray ist, also da wo dieser Typ drin ist, dort sind die Chars direkt drin. (und ich wette, es war beim Record TFlrKopf und den Parametern, für die DLL-Schnittstelle, auch absichtlich so)




PS: statt if StringIstLeer(HStr) then kann man auch if Trim(HStr) = '' then verwenden
und statt if Pos(...) = 1 then würde ich heutzutage eher StartsStr empfehlen.

[Ceruso]

Hallo an Alle
durch euch bin ich auf die richtige Spur gekommen

Vielen Vielen Vielen Dank.

falls ich nochmals Hilfe brauche wer könnte mir mal ein paar Stunden was erklären?
Raum Ludwigsburg

Danke
Danke

[hoika]

Hallo,
geht auch alles per Teams/AnyDesk/Teamviewer usw.

Klappt denn das mit der DLL jetzt?

[Ceruso]

Hallo
ja das mit der DLL klappt jetzt

[hoika]

Hallo,

Zitat:

falls ich nochmals Hilfe brauche wer könnte mir mal ein paar Stunden was erklären?

Na dann mal weiter,
ich kann immer nur Abends mal reinsehen.