Hi,
Ich habe bereiz Tabstops mit dem Code
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var DialogUnitsX: LongInt;
PixelsX: LongInt;
i: integer;
TabArray: array[0..20] of integer;
begin
mem_ergebnis.WantTabs:=true;
DialogUnitsX:=LoWord(GetDialogBaseUnits);
PixelsX:=10;
for i:=1 to 20 do begin
TabArray[i-1]:=((PixelsX*i)*4) div DialogUnitsX;
end;
SendMessage(mem_ergebnis.Handle, EM_SETTABSTOPS, 20, LongInt(@TabArray));
mem_ergebnis.Refresh; |
erstellt.
Jetzt möchte ich, wenn ich Texte in dieses Feld hineinschreibe sie mit Tabstops formatieren, jedoch weiß ich nicht wie.
Normalerweise schreib man ja Zeilen in das Memofeld mit
mem.Lines.Add(string)
Wie springe ich jetzt in diesem String einen Tabstop weiter?
also
mem.Lines.Add('Hier kommt Text' [nächster Tabstop] 'nächster Text' )
MfG
Neo
