Stringlänge parsen

[TiGü]

Zitat von EWeiss:

EDIT:

Graphics: GPGRAPHICS; // Tigü: Hier war ein falscher Typ (Cardinal)
Der Typ ist nicht falsch wenn er das wäre würde mein ganzer Quelltext nicht funktionieren.
Das ist eine Auslegungs Sache wie ich Graphics definiere.
IN VB ist es Long, in PowerBasik ist es DWORD und bei mir ist es Cardinal (DWORD) wenn du so willst.

Ich möchte dich an dieser Stelle ausdrücklich warnen!
Das funktioniert wunderbar für 32-Bit bis ans Ende aller Tage.

Aber unter 64-Bit wirst du schnell merkwürdige Fehler (höchstwahrscheinlich) bekommen (können).
Die GDIPLUS-DLL wird dir 64-Bit Zeiger geben (Länge 8 Byte) und du wirst hart auf 32-Bit Länge casten und damit die Adresse abschneiden.
Das führt unweigerlich zu merkwürdigen Fehlern und Zugriffsverletzungen.
Das gilt auch für alle anderen Typen wie bpsw. Brush, Texture, Gradienten, Pen, Image, Bitmap, StringFormat, FontFamily etc. pp.

[TiGü]

Hier mal ein Beispiel was falsche, nicht mitwachsende Typen für Ärger sorgen können:
http://www.delphipraxis.net/181512-s...imagelist.html

[EWeiss]

Das ist korrekt was du sagst deshalb verwende ich für 64Bit ja auch die "normale" GDIPlus vom http://www.progdigy.com

Ich weis das Graphics, Image und einige andere variablen Pointer sind.
Bei mir sind diese fast alle Cardinal und glaube mir in 32Bit gibt es keine Probleme.

Ich hatte einfach keine Lust 5 Units für 3 API Funktionen in meine LIB einzubinden die machen alleine schon 1MB aus.

gruss

[EWeiss]

Nun ja wirklich weiter bin ich noch nicht muss mich mal schlau machen was Glados mit QuickSort meint.
Kenn mich damit nicht aus.

gruss

[TiGü]

Zitat von EWeiss:

Nun ja wirklich weiter bin ich noch nicht muss mich mal schlau machen was Glados mit QuickSort meint.
Kenn mich damit nicht aus.

Der Vorschlag bringt dich auch nicht weiter.
Da muss man auch nichts sortieren.

PseudoCode:

Delphi-Quellcode:

function GetTextWidth(MyStrings: TStrings {ja, nur ein Beispiel, kannst auch Array nehmen}): Integer;
var
  Result, NewWidth: Integer;
  MyString: string;
begin
  Result := 0;
  NewWidth := 0;
  for MyString in MyStrings do
  begin
    NewWidth := GetTextBoundOnlyWidth(MyString); // Platzhalterfunktion zum Ermitteln der Breite des Strings
    if NewWidth > Result then // Immer wenn die Breite größer ist von diesen String, dann Result entsprechen erhöhen
      Result := NewWidth;
  end;
end;

[Glados]

Zitat:

Der Vorschlag bringt dich auch nicht weiter.
Da muss man auch nichts sortieren.

Ich habe nicht gesagt, dass man zwingend sortieren muss. Aber mit QuickSort kann man den längsten String ausfindig machen.

Was anderes macht dein Code auch nicht!
Ob nun dein Vorschlag oder meiner: das Ergebnis ist am Ende dasselbe je nachdem wie man es auswertet.

[Neutral General]

Zitat von Glados:

Was anderes macht dein Code auch nicht!
Ob nun dein Vorschlag oder meiner: das Ergebnis ist am Ende dasselbe je nachdem wie man es auswertet.

Doch. Um die Strings sortieren zu können musst du für jeden String in einer Schleife erst mal die Länge ermitteln.
Danach noch zu sortieren ist Unsinn weil man sich in der Schleife auch grad immer merken kann ob das aktuelle Element das (bisher) größte ist:

Delphi-Quellcode:

if NewWidth > Result then // Immer wenn die Breite größer ist von diesen String, dann Result entsprechen erhöhen
  Result := NewWidth;

[TiGü]

Zitat von Glados:

Zitat:

Der Vorschlag bringt dich auch nicht weiter.
Da muss man auch nichts sortieren.

Ich habe nicht gesagt, dass man zwingend sortieren muss. Aber mit QuickSort kann man den längsten String ausfindig machen.

Was anderes macht dein Code auch nicht!
Ob nun dein Vorschlag oder meiner: das Ergebnis ist am Ende dasselbe je nachdem wie man es auswertet.

Der Neutral General hat ja schon erklärt, warum es unsinnig ist sich die Ergebnisse zu merken und anschließend zu sortieren.
Nichtsdestotrotz möchte ich auf "Was anderes macht dein Code auch nicht!" mit folgenden Thread antworten:
http://www.delphipraxis.net/123215-p...umwandeln.html

Bitte lese ihn aufmerksam durch.
Alle Lösungen zur Aufgabenstellungen bringen das gleiche Ergebnis.
Finde die Parallelen hierzu.

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Nun ja wirklich weiter bin ich noch nicht muss mich mal schlau machen was Glados mit QuickSort meint.
Kenn mich damit nicht aus.

Der Vorschlag bringt dich auch nicht weiter.
Da muss man auch nichts sortieren.

PseudoCode:

Delphi-Quellcode:

function GetTextWidth(MyStrings: TStrings {ja, nur ein Beispiel, kannst auch Array nehmen}): Integer;
var
  Result, NewWidth: Integer;
  MyString: string;
begin
  Result := 0;
  NewWidth := 0;
  for MyString in MyStrings do
  begin
    NewWidth := GetTextBoundOnlyWidth(MyString); // Platzhalterfunktion zum Ermitteln der Breite des Strings
    if NewWidth > Result then // Immer wenn die Breite größer ist von diesen String, dann Result entsprechen erhöhen
      Result := NewWidth;
  end;
end;

Danke das ist ein Anhaltspunkt.
TStrings sind ok..

gruss

[Glados]

Zitat:

Ob nun dein Vorschlag oder meiner: das Ergebnis ist am Ende dasselbe je nachdem wie man es auswertet.

Zitat:

Doch.