Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Jun 2008
Vielleicht hat er ja eine FixedRow definiert.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Jun 2008
Sascha, heute ist nicht Dein Tag, oder?
procedure ConvertStrings(sl:TStrings);
var i :integer;
begin
for i := 1 to Pred(sl.Count) do
begin
if length(sl) <= 3 then
begin
sl:='kleiner als 3 Zeichen'
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Jun 2008
sl:=copy(sl,1,length(sl)-3)+'xxx'
copy liefert einen LeerString zurück und es werden drei x angehangen.
Vielleicht solltest Du vorher prüfen ob der String auch mehr als 3 Zeichen beinhaltet.
Grüße
Klaus