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 ^^