Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#4

Re: Zeile im Memo Feld ändern

  Alt 16. Nov 2007, 13:35
hmm einmal funktioniert es, aber dann nicht mehr...

auch seh ich das ergebnis dann nicht im memo feld...
ich poste mal die ganze procedure vielleicht sieht dann jemand meinen fehler
Delphi-Quellcode:
procedure TPrint_Form.prUPS(sOutputType : String);

var
sPath, sRow : String;
txtFile : TextFile;
i, iLen, iLine, iPos : Integer;

begin

  sPath := ExtractFilePath(Application.ExeName) + 'Files\' + sOutputType + '_Fields.txt';
  i := 0;

  {$I-}
  AssignFile(txtFile, sPath);
  If IOResult <> 0 Then
  Begin
    MessageDlg('Error while Load File ' + sOutputType, mtError, [mbOK], 0);
  End;
  Reset(txtFile);
  If IOResult <> 0 Then
  Begin
    MessageDlg('Error while Open File ' + sOutputType, mtError, [mbOK], 0);
  End;
  {$I+}

  With (PrintShipLbl_main.Main_Form) Do
  Begin
    While Not EOF(txtFile) Do
    Begin
      {$I-}
      ReadLn(txtFile, sRow);
      If IOResult <> 0 Then
      Begin
        MessageDlg('Error while Reading File ' + sOutputType, mtError, [mbOK], 0);
      End;
      {$I+}
      iPos := Pos('&', sRow);
      i := StrToInt(Copy(sRow, 1, 2));
      iLine := StrToInt(Copy(sRow, iPos + 1, 2)) -1;
      If iLine <> 0 Then
      Begin
        mem_prtf.Lines[iLine] := mem_prtf.Lines[iLine] + Copy(strgrid_interfaceval.Cells[i, 1], iLen - 1);
        //ShowMessage(mem_prtf.Lines.Strings[iLine]);
      End;
    End;
  End;

end;
so folgendes zum ablauf...
ich habe in einem memo feld meine daten stehen...
in der procedure möchte ich eine text file durchlesen, das die linien enthält, an die im memo feld daten hinzugefügt werden sollen... in einem string grid habe ich dann die werte die hinzugefügt werden müssen...
ich hoffe es war für alle verständlich ^^
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat