strings und zeilenumbruch

[venice2]

Mein String.

Delphi-Quellcode:

          DialogStr := gM.Title +
          { ' ' + Duration + } #13#10 + gM.release_date + #13#10 +
            gM.genre_ids + #13#10#13#10#13#10#13#10#13#10#13#10 + gM.overview;

Gibt es eine andere Möglichkeit für die Umbrüche?

#13#10#13#10#13#10#13#10#13#10#13#10

[himitsu]

Es kommt drauf an.

#10
#13#10
#13 (macht z.B. intern das RichEdit, wobei TRichEdit "teilweise" es zu sLineBreak ändert/stringreplaced ... und sogar MacOS inzwischen standardmäßig von #13 zu #10 gewechselt ist)
sLineBreak

An ein TMemo oder eine TStringList kann man auch nur #10 übergeben, da es bei Übergabe automatisch zu #13#10 wird. (TStringList erlaubt alles im Eingang)
Auch MessageBox und Co. erlauben sowohl #10 als auch #13#10.

Man kann auch StringReplace von irgendeinem Zeichen nach #10/#13#10/sLineBreak machen, wenn man den String nicht "unterbrechen" will.

Aber manche APIs/Funktionen wollen ausschließlich #13#10 und behandeln #10 wie ein Zeichen, also nicht als Zeilenumbruch. (z.B. bekannt vom alten Windows-Notepad oder einigen Canvas-DrawText-Funktionen)

.............



Und wie wäre es mit Format?

[venice2]

Wenn ich jetzt 12 Zeilenumbrüche erstellen will um zwischen einen String platz zu schaffen bin ich gezwungen die komplette Zeile zu übergeben.
Ist das so?

#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10 Wenn ja.. Schade das man das nicht kürzen kann.

bsp. LineBreak(12)

[TKanne]

Moin,

mich nervt auch immer das #13#10 getippe, habe mir delhalb in meine Unit mit diversen Stringroutinen eine kleine Funktion geschrieben:

Delphi-Quellcode:

function NewLine(Anzahl: Integer): string;
begin
  Result := '';
  if Anzahl > 0 then
    Result := DupeString(#13#10, Anzahl);
end;

Aufruf dann z.B.:
ShowMessage('a' + NewLine(2) + 'b');

[venice2]

Zitat von TKanne:

Moin,

mich nervt auch immer das #13#10 getippe, habe mir delhalb in meine Unit mit diversen Stringroutinen eine kleine Funktion geschrieben:

Delphi-Quellcode:

function NewLine(Anzahl: Integer): string;
begin
  Result := '';
  if Anzahl > 0 then
    Result := DupeString(#13#10, Anzahl);
end;

Aufruf dann z.B.:
ShowMessage('a' + NewLine(2) + 'b');

Ahh
Selbst ist der Mann. Vielen Danke!

Genau das meinte ich.

[TKanne]

Oder man schreibt gleich
S := 'a' + DupeString(#13#10, 2) + 'b';

[venice2]

Zitat:

Oder man schreibt gleich

Ja wenn man es einmalig braucht.

Habe die umbenannt funktioniert gut. Danke nochmals.

Delphi-Quellcode:

function LineBreak(Count: Integer): string;
begin
  Result := '';
  if Count > 0 then
    Result := DupeString(#13#10, Count);
end;

Delphi-Quellcode:

          
DialogStr := gM.Title + LineBreak(1) + gM.release_date + LineBreak(1) +
  gM.genre_ids + LineBreak(8) + gM.overview;

Vorher hätte das so ausgesehen.

Delphi-Quellcode:

          
DialogStr := gM.Title + #13#10 + gM.release_date + #13#10 +
  gM.genre_ids + #13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10 + gM.overview;

Genug platz ohne diese #13#10 Umbruchstrings.
Kann jetzt adverage und vote dazwischen packen.

[himitsu]

Delphi-Quellcode:

function LineBreak(Count: Integer=1): string;  // oder gleich LB
begin
  Result := '';
  if Count > 0 then
    Result := DupeString(sLineBreak, Count);
end;

?

Delphi-Quellcode:

DialogStr := gM.Title + LineBreak + gM.release_date + LineBreak +
  gM.genre_ids + LineBreak(8) + gM.overview;

Noch kürzer und keine MagicNumbers im Code.



Aber warum dort überhaupt ein Freiraum von unhandlicher Größe?
Zwei Texte ... der Eine von unten und der Andere von oben.