Strings zerlegen und in Button multiline.caption

[Natcree]

Hallo Ich möchte in einem Clientdataset einen Artikel Eingeben und abspeichern.
Nun möchte ich einen Button diesen Artikelnamen als Caption Übergeben.Es normal über eine Tstringlist laufen lassen geht ohne Probleme sobald ich aber das Clientdataset1 als Quelle nutzen will gibt es Fehlermeldungen.

Hier mal der Code

Delphi-Quellcode:

Uses
Math;

Procedure BreakLongString (Const aString : String; aStringList : TStringList; aMaxLength : Integer);
Var
  X,X1, XEnd : Integer;
Begin
  X := 1;
  XEnd := Length (aString);
  While X < XEnd Do Begin
    X1 := Min (Xend, X+8);
    If X1<XEnd Then Begin
      While (X1>X) And (aString[X1]<>' ') Do Dec (X1);
      If X1 = X Then X1 := X + 8;
    End;
    aStringList.Add(Copy (aString,X,X1-X+1));
    X := X1+1;
  End
End;

function SetMultiLineCaption(const p_Button : TButton;const p_sCaption : String;
const p_fAutoAdjust : Boolean = false) : Boolean;
begin
  Result := false;
  if SetWindowLong(p_Button.Handle, GWL_STYLE, GetWindowLong(p_Button.Handle, GWL_STYLE)
  or BS_MULTILINE)> 0 then
  begin
    p_Button.Caption := p_sCaption;
    Result := true;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts:tstringlist;
i:integer;
begin
ts:=tstringlist.Create;
breaklongstring(edit1.Text,ts,8);
i:=ts.Count;
if i=1 then
SetMultiLineCaption(self.Button1,ts.Strings[0],true);
if i=2 then
SetMultiLineCaption(self.Button1,ts.Strings[0]+#13#10+ts.Strings[1],true);
if i=3 then
SetMultiLineCaption(self.Button1,ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2],true);
ts.Free;
end;

Dieser Functioniert

Dieser nicht

Delphi-Quellcode:

Procedure BreakLongString (Const aString : String; aStringList : TStringList; aMaxLength : Integer);
Var
  X,X1, XEnd : Integer;
Begin
  X := 1;
  XEnd := Length (aString);
  While X < XEnd Do Begin
    X1 := Min (Xend, X+8);
    If X1<XEnd Then Begin
      While (X1>X) And (aString[X1]<>' ') Do Dec (X1);
      If X1 = X Then X1 := X + 8;
    End;
    aStringList.Add(Copy (aString,X,X1-X+1));
    X := X1+1;
  End
End;

function SetMultiLineCaption(const p_Button : TButton;const p_sCaption : String;
const p_fAutoAdjust : Boolean = false) : Boolean;
begin
  Result := false;
  if SetWindowLong(p_Button.Handle, GWL_STYLE, GetWindowLong(p_Button.Handle, GWL_STYLE)
  or BS_MULTILINE)> 0 then
  begin
    p_Button.Caption := p_sCaption;
    Result := true;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts:Tstringlist;
j:integer;
begin
ts:=tstringlist.Create;
form1.clientdataset1.recno:=1;
breaklongstring(form1.ClientDataSet1.FieldValues['Warengruppe'],ts,8);
j:=ts.Count;
if j=1 then
SetMultiLineCaption(form1.LMDDockspeedbutton1,ts.Strings[0],true);
if j=2 then
SetMultiLineCaption(form1.LMDDockspeedbutton1,ts.Strings[0]+#13#10+ts.Strings[1],true);
if j=3 then
SetMultiLineCaption(form1.LMDDockspeedbutton1,ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2],true);
ts.Free;
end;

[Sir Rufo]

Ja, der Fehler mit dem

Delphi-Quellcode:

NULL

ist doch eindeutig ... das Feld hat einen

Delphi-Quellcode:

NULL

Wert und der kann nicht in einen

Delphi-Quellcode:

string

gewandelt werden.

Also prüfe vorher auf

Delphi-Quellcode:

NULL

und füge den Wert nicht an (ist ja eh nichts drin)

PS
Wenn du das anschaust, findest du das nicht auch sehr umständlich?

Delphi-Quellcode:

j:=ts.Count;
if j=1 then
  SetMultiLineCaption( form1.LMDDockspeedbutton1, ts.Strings[0], true );
if j=2 then
  SetMultiLineCaption( form1.LMDDockspeedbutton1, ts.Strings[0]+#13#10+ts.Strings[1], true );
if j=3 then
  SetMultiLineCaption( form1.LMDDockspeedbutton1, ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2], true );

[Natcree]

Habe es jetzt mit einem Standard TButton versucht und es klappt. Wenn ich in der function setmultiline
den TButton mit meinem TLMDDockspeedbutton austausche muss ich auch statt button.handle auf Button.control.handle umstellen sonst bleibt handle undeclared.

Sieht er so aus als ob die LMD Komponente nicht mit diesem Code klar kommt. Was kann ich da noch machen?

[Natcree]

Hier mal der code mit dem es geht

Delphi-Quellcode:

Procedure BreakLongString (Const aString : String; aStringList : TStringList; aMaxLength : Integer);
Var
  X,X1, XEnd : Integer;
Begin
  X := 1;
  XEnd := Length (aString);
  While X < XEnd Do Begin
    X1 := Min (Xend, X+8);
    If X1<XEnd Then Begin
      While (X1>X) And (aString[X1]<>' ') Do Dec (X1);
      If X1 = X Then X1 := X + 8;
    End;
    aStringList.Add(Copy (aString,X,X1-X+1));
    X := X1+1;
  End
End;

function SetMultiLineCaption(const Button : TButton;const Caption : String;
const p_fAutoAdjust : Boolean = false) : Boolean;
begin
  Result := false;
  if SetWindowLong(Button.Handle, GWL_STYLE, GetWindowLong(Button.Handle, GWL_STYLE)
  or BS_MULTILINE)> 0 then
  begin
    Button.Caption := Caption;
    Result := true;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts:tstringlist;
i:integer;
begin
ts:=tstringlist.Create;
clientdataset1.RecNo:=1;
breaklongstring(Clientdataset1.FieldValues['Artikel'],ts,8);
i:=ts.Count;
if i=1 then
SetMultiLineCaption(button1,ts.Strings[0],true);
if i=2 then
SetMultiLineCaption(button1,ts.Strings[0]+#13#10+ts.Strings[1],true);
if i=3 then
SetMultiLineCaption(button1,ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2],true);
ts.Free;
end;

und hier der mit dem es nicht geht

Delphi-Quellcode:

Procedure BreakLongString (Const aString : String; aStringList : TStringList; aMaxLength : Integer);
Var
  X,X1, XEnd : Integer;
Begin
  X := 1;
  XEnd := Length (aString);
  While X < XEnd Do Begin
    X1 := Min (Xend, X+8);
    If X1<XEnd Then Begin
      While (X1>X) And (aString[X1]<>' ') Do Dec (X1);
      If X1 = X Then X1 := X + 8;
    End;
    aStringList.Add(Copy (aString,X,X1-X+1));
    X := X1+1;
  End
End;

function SetMultiLineCaption(const Button : TLMDDockspeedButton;const Caption : String;
const p_fAutoAdjust : Boolean = false) : Boolean;
begin
  Result := false;
  if SetWindowLong(Button.Control.Handle, GWL_STYLE, GetWindowLong(Button.Control.Handle, GWL_STYLE)
  or BS_MULTILINE)> 0 then
  begin
    Button.Caption := Caption;
    Result := true;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts:tstringlist;
i:integer;
begin
ts:=tstringlist.Create;
clientdataset1.RecNo:=1;
breaklongstring(Clientdataset1.FieldValues['Artikel'],ts,8);
i:=ts.Count;
if i=1 then
SetMultiLineCaption(LMDDockspeedbutton1,ts.Strings[0],true);
if i=2 then
SetMultiLineCaption(LMDDockspeedbutton1,ts.Strings[0]+#13#10+ts.Strings[1],true);
if i=3 then
SetMultiLineCaption(LMDDockspeedbutton1,ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2],true);
ts.Free;
end;

[Sir Rufo]

Und du bist dir sicher, dass

Delphi-Quellcode:

form1

auch initialisiert ist?

Delphi-Quellcode:

form1.LMDDockspeedbutton1

Im Code vorher nimmst du noch

Delphi-Quellcode:

self

(besser), aber warum lässt du das nicht einfach weg und investierst die gesparte Tippzeit in eine ordentliche Formatierung?

[Natcree]

Ja es läuft auch. Kann es sein die findet eine pas datei nicht. kann es daran liegen das ich nur ne trial von den LMD Compos installiert habe?

[Sir Rufo]

Zitat:

Zitat von Natcree (Beitrag 1264185)

Ja es läuft auch. Kann es sein die findet eine pas datei nicht. kann es daran liegen das ich nur ne trial von den LMD Compos installiert habe?

Nö, die packen auch bei den Trials den gesamten Source-Code dabei. Falls du doch nicht kaufst, kannst du problemlos die Stellen aus dem Source nehmen, die die Trial zu einer Trial macht :roll:

[Natcree]

So habe es rausgefunden liegt wohl an den Control einstellungen wenn ich button1 im oi als control einfüge klappt es schon komisch

[Sir Rufo]

Zitat:

Zitat von Natcree (Beitrag 1264189)

So habe es rausgefunden liegt wohl an den Control einstellungen wenn ich button1 im oi als control einfüge klappt es schon komisch

Wie das mit dem

SQL-Code:

NULL

-Fehler zusammenhängt ist mir allerdings auch ein Rätsel

[himitsu]

Wozu ist eigentlich der nutzlose und nirgendwo verwendete Parameter aMaxLength?

Keine Zeit für Resourcenschutzblöcke?

Kennst du sLineBreak?

Zitat:

Delphi-Quellcode:

i:=ts.Count;
if i=1 then
SetMultiLineCaption(self.Button1,ts.Strings[0],true);
if i=2 then
SetMultiLineCaption(self.Button1,ts.Strings[0]+#13#10+ts.Strings[1],true);
if i=3 then
SetMultiLineCaption(self.Button1,ts.strings[0]+#13#10+ts.strings[1]+#13#10+ts.strings[2],true);

Wurde ja bereits gesagt, was hier los ist. :roll:

Delphi-Quellcode:

if ts.Count <= 3 then
  SetMultiLineCaption(Button1, ts.Text, True);

PS: VarIsNull oder VarToStr :stupid:

PPS: Fehlerdialog -> Strg+C -> Erfolgs-*beep* -> ins Forum gehn -> Strg+V mit eventuell noch das Nutzlose drumrum löschen -> Quote drumrum -> schön ist es