Forum: Programmieren allgemein
Delphi
by Bummi,
6. Jun 2012
nimm Posting #7 mit einem Trim()
Forum: Programmieren allgemein
Delphi
by Bummi,
6. Jun 2012
im Zweifelsfalle so ...
begin
sl :=TStringList.create;
sl2:=TStringList.Create;
try
sl.assign(memo1.Lines);
TRimList(sl);
for I := 0 to sl.Count -1 do
begin
Forum: Programmieren allgemein
Delphi
by Bummi,
6. Jun 2012
Procedure TRimList(sl:TStringList);
begin
sl.Delete(0);
sl.Delete(sl.Count-1);
sl.text := StringReplace(sl.text,'ende'#13#10'anfang','',);
sl.text := StringReplace(sl.text,' "','=',);
sl.text := StringReplace(sl.text,'"'#13#10,';',);
end;