delphi
Por ejemplo Write(file, lineas.strings[i]);
El caso es que al ser tengo problemas para que haga los saltos con cada escritura y lea todas las lineas, porque me transcribe solo la ultima, y necesitaria que escriba todas.
Salu2.
Escrito 27 julio 2010 - 06:49
Por ejemplo Write(file, lineas.strings[i]);
Escrito 27 julio 2010 - 07:14
procedure TForm1.Button1Click(Sender: TObject); begin { Memo1.Lines.Delimiter := #13; Memo1.Lines.StrictDelimiter := true; } // Se puede omitor memo1.Lines.LoadFromFile('C:\Documentos\Archivo.txt'); end;
Escrito 28 julio 2010 - 01:42
memo1.Lines.SaveToFile('C:\Documentos\Archivo.txt');
Escrito 28 julio 2010 - 08:32
if FileExists(Lineas.Strings[i]) then memo1.lines.add(Lineas.Strings[i] + ' encontrado!'); AssignFile(myFile, 'Test.txt'); ReWrite(myFile); WriteLn(myFile, 'Comenzando'); CloseFile(myFile);
Escrito 28 julio 2010 - 08:45
for i := 0 to memo1.lines.count - 1 do WriteLn(myFile, memo1.lines[i]);
Escrito 28 julio 2010 - 11:10
if FileExists(Lineas) then WriteLn(myFile, Lineas + ' encontrado!');
Escrito 28 julio 2010 - 11:18
if FileExists(Lineas.Strings[i]) then WriteLn(myFile, Lineas.Strings[i] + ' encontrado!'); memo1.lines.add(Lineas.Strings[i] + ' Encontrado!');
Escrito 28 julio 2010 - 12:11
Memo1.Lines.SaveToFile('...\archivo.txt');
Escrito 28 julio 2010 - 02:51