Witam potrzebuje pomocy tzn mam problem z utworzeniem programu który usuwa jeden wiersz z wybranego notatnika. Jestem bardzo bardzo początkujący wiem stworzył mi pewien Pan taki program ale niestety nie zachował kodu źródłowego który mi jest bardzo potrzebny po prostu chce to połaczyć z innym programem. Czy ktoś by mi mógł pomóc ?
0
3
var lst:TStringList;
...
lst:=TStringList.Create();
lst.LoadFromFile(FileName);
lst.Delete(Random(lst.Count));
lst.SaveToFile(FileName);
Lst.Free;
Wypadało by też sprawdzić czy są jakieś wiersze.
0
jeszcze mi zostały kody które mógl gościu przysłać
procedure TProgram.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TProgram.WczytajClick(Sender: TObject);
begin
if OpenDialog.Execute() then
begin
File := TStringList.Create;
File.LoadFromFile(OpenDialog.FileName);
end;
end;
procedure TProgram.LosujClick(Sender: TObject);
begin
If File.Text <> '' then
begin
i := Random(File.Count);
Row.Text := File[I];
File.Delete(i);
File.SaveToFile(OpenDialog.FileName);
end
else
begin
Row.Text := '';
end;
end;
procedure TProgram.SchowekClick(Sender: TObject);
begin
Clipboard.AsText := Row.Text;
end;
Kazał mi dodać buttony i OpenDialog na formę, stworzyć zmienną
TStringListwystarczy stworzyć obiekty, zadeklarować zmienne i procedury,
dodać unit math. lecz nie zabardzo wiem o co chodzi ? tworze w embacendero xe5
2
No to poczytać jakiś kurs i zrobić, lub wynająć fachowca.