Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Bei allen memo lines die ersten laut SpinEdit abschneiden
Biarchiv - Sa 14.05.11 11:57
Titel: Bei allen memo lines die ersten laut SpinEdit abschneiden
Hallo,
ich stehe gerade auf der Leitung. Wie kann man wenn bei beim SpinEdit2 zb: 3 einstellt die ersten 3 Stellen beim memo rausschneiden?
SpinEdit.Value = 3
Mein Test
macht
n Test
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| for i := 0 to Memo6.Lines.Count - 1 do
begin
s := Memo6.Lines[i];
for I2 := 0 to length(s) - 1 do
begin
If (SpinEdit2.Value < (i2 + 1)) then s2 := s2 + Memo6.Lines[i][i2];
end;
Memo6.Lines[i] := s2;
end; |
jaenicke - Sa 14.05.11 12:37
Wie wäre es mit Copy?
Delphi-Quelltext
1:
2:
| for i := 0 to MyMemo.Lines.Count - 1 do
MyMemo.Lines[i] := Copy(MyMemo.Lines[i], MySpinEdit.Value, MaxInt); |
Und nebenbei:
Vergiss nicht deine Komponenten noch ordentlich zu bezeichnen. :D
Biarchiv - Sa 14.05.11 13:02
Danke jaenicke.
Jetzt gehts, nur hat dein Code einen kleinen Fehler. Nach MySpinEdit muss noch + 1 dazu.
Delphi-Quelltext
1:
2:
| for i := 0 to MyMemo.Lines.Count - 1 do
MyMemo.Lines[i] := Copy(MyMemo.Lines[i], MySpinEdit.Value + 1, MaxInt); |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!