XPSE

Ich schaue sofort mal...

Folgendes:
Kompilieren Markieren Separieren

Linha$ = Linha$;"	";Linha2$;"	",Campo$

entspricht
Kompilieren Markieren Separieren

Linha$ = Linha$
"	"
Linha2$
"	",Campo$

Das Semikolon um Strings zu addieren ist mittlerweile unzulässig da auch Roland davon abrät. Hier ist einfach ein + zu nutzen.

Mit dem Semikolon wird eine neue Zeile begonnen bzw. Befehle voneinander getrennt - wie auch in den meisten anderen Hochsprachen.

Hoffe konnte helfen.

Salve, iF.

Fernando
Santos

Hallo If

Das baruche ich um kundendaten in eine Listbox darzustellen
wo die daten um 4 leerzeichen voneinander getrennt dargestellt werden

Beispiel:
0236****Alfred Neuss****Runde str
0323****Klau MAN****Elter str

Proc listar Listbox für kundendaten
@Sendmessage (LiBox1&,$0184,0,0)
Let Quantidade& = @dbUse(#1)
Clear Record&
Let Opc$ = |<
While (Record& < Quantidade&)
@dbGo(Opc$)
Let Linha$ = @dbGet$(NUMMER)
Let Linha2$ = @dbGet$(NAME)
Let Campo$ = @dbGet$(STRASSE)
Let Linha$ = Linha$;;Linha2$;,Campo$
@AddString(LiBox1&,Linha$)
Let Opc$ = >
Record& = Record& + 1
EndWhile
EndProc

unsichtbare Listbox
proc Listbox
Let LiBox1&=@createSortedListbox(_dlg&,,0,0,0,0)
@SendMessage(LiBox1&,$0194,400,0) horizontal scroll
tabulator in der listbox
Dim Tab#,4 4 zeichen für Tabulator
Long Tab#,0 = 30 distance in tabulator
@Sendmessage (LiBox1&,$0192,1,Tab#)
Dispose Tab#
Endproc

listbox

SetWindowPos LiBox1&=580,011-200,377 Listbox sichtbar machen
listar daten in der listbox einlesen

Hoffe mich verständlich ausgedrückt zu haben

Gruss

Fernando

Innovative Produkte für Aufzüge

Schrieb ich doch - ist doch kein Problem - einfach statt dem Semikolon das + nehmen.

Falsch: Linha$ = Linha$;;Linha2$;,Campo$
Richtig: Linha$ = Linha$++Linha2$++Campo$

Salve, iF.

Fernando
Santos

Hi If

Altes Sprichwort: wer lesen kann.....

Danke

Gruss

fernando

Innovative Produkte für Aufzüge