Thema: Delphi Wort aus Textdatei laden

Einzelnen Beitrag anzeigen

BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#4

Re: Wort aus Textdatei laden

  Alt 4. Feb 2009, 17:40
Zitat von DeddyH:
Entferne doch mit StringReplace die Anführungszeichen einfach.
Deddy mein Held

Mit StringReplace geht das.

Delphi-Quellcode:
  // Name
  name := frmEditor.mConfig.Lines[235];
  Delete(name,1,Pos(#32,name));
  name := StringReplace(name, '"', '' , []);
  name := trim(name);
  Delete(name,Pos(#32,name),Length(name));
  name := StringReplace(name, '"', '' , []);
  frmEditor.edtName.text := name;
Allerdings ist der Lösungsvorschlag von scrat1979 kürzer und funktioniert ebenfals.

Aber kann man das ganze nun noch weiter kürzen? Sonst müsste ich allein den Code:
Delphi-Quellcode:
  // Vorwärts
  vor := frmEditor.mConfig.Lines[30];
  Delete(vor,1,Pos(#32,vor)+1);
  vor := trim(vor);
  Delete(vor,Pos(#32,vor)-1,Length(vor));
  frmEditor.edtVor.text := vor;
an die 30x haben, wegen der ganzen Variablen etc die ich laden möchte.
  Mit Zitat antworten Zitat