Thema: Delphi Text Wegschneiden

Einzelnen Beitrag anzeigen

choose

Registriert seit: 2. Nov 2003
Ort: Bei Kiel, SH
729 Beiträge
 
Delphi 2006 Architect
 
#6

Re: Text Wegschneiden

  Alt 14. Jan 2004, 14:44
Wenn Du Hier im Forum suchenreguläre Ausdrücke einsetzen magst, könnte der Vollständige Code, um die Eingangsdaten aus Memo1 in die von Dir geünschte Form nach Memo2 (unter der Vorraussetzung, das keine weiteren Sonderfälle vorhanden sind) innerhalb der Ereignisbehandlungsroutine Button1Click zB so aussehen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  iLine: Integer;
begin
  Memo2.Clear;
  with Memo1.Lines, RegExp('^(.*?\s){2}(.*)\s.*?86\s*$') do
    for iLine:=0 to Pred(Count) do
      Memo2.Lines.Add( Replace(Strings[iLine], '$2', True));
end;
gruß, choose
  Mit Zitat antworten Zitat